(pascal)вывести на экран таблицу значений функции f(x) на отрезке [a; b] с шагом h .

1. домик

screen 12

line (200,120)-(360,320),6,BF

line (240,160)-(320,240),11,BF

line (280,40)-(200,120),2

line (280,40)-(360,120),2

line (200,120)-(360,120),2

paint (280,80),2

 

2. елка

screen 12

line (280,40)-(200,120),2

line (280,40)-(360,120),2

line (200,120)-(360,120),2

paint (280,80),2

line (280,120)-(200,200),2

line (280,120)-(360,200),2

line (200,200)-(360,200),2

paint (280,160),2

line (280,200)-(200,280),2

line (280,200)-(360,280),2

line (200,280)-(360,2800),2

paint (280,240),2

line (240,281)-(320,320),6,BF

line (240,80)-(320,120),8

line (240,160)-(320,200),8

line (240,240)-(320,280),8

circle(260,90),15,1

circle(280,100),15,3

circle(300,110),15,4

circle(260,170),15,5

circle(280,180),15,9

circle(300,190),15,11

circle(260,250),15,12

circle(280,260),15,13

circle(300,270),15,14

№1

program fff;

var a, b, c: integer;

begin

writeln('введите первое число');

readln(a);

b:=a+1;

c:=a+2;

writeln(a);

writeln(b);

writeln(c);

end.

№2

program fff;

var r, o, p: integer;

begin

writeln('введите длину ребра');

readln(r);

o:=r*r;

o:=r*o;

p:=r*r;

writeln('объем куба=',o);

writeln('площадь стороны=',p);

end.

№3

program fff;

var ch, a, b, c, su, pr: integer;

begin

writeln('введите трехзначное число');

read(ch);

a:= ch div 100;

b:=ch mod 10;

c:= ch div 10;

c:= c mod 10;

su:=a+b+c;

pr:=a*b*c;

writeln('сумма=',su);

writeln('произведение=',pr);

end.