Var a, b, c, p, z: real;

begin

b:=3.2;

c:=4.3;

22: Write(‘Введіть а’);

readln(a);

p:=a + b + c;

z:= a*p +b*p + c*p;

if z>0 then begin

z:=SQR(z);

end;

goto 22

end.

б) var a, b, c: real

a:=4.5; b:=2.1

vhile i<=10 do

begin

c:= a*b*i;

i:=i – 1;

в) Label 22;

var a, b, c, p, z: real

b:=3.2;

c:=4.3;

22: write(‘введіть а’);

read(a);

p:=a*b*c;

z=log(p);

if z<>0 then

gotu 22

end;

г) var a, b, c: integer;

a:=4.2; b:=3;

while i>=10 do

begin

c:= a*b*I;

i:= i*1

end; end;

д) Label 2;

var a, b, c, p, z: real;

begin

b:=3.2;

c:=4.3;

Label 2: write(‘Введіть а’);

readln(a);

p:=a + b + c;

z:= a*p +b*p + c*p;

if z>0 then begin do Label 2;

z:=SQR(z);

end;

goto 22

end.

Який з фрагментів програми не містить помилок:

а) var i: integer;

begin

i:=20;

while i<=30 do

begin

writeln(i:4, i*i:6);

i:=i+1;

end;

б) var x, y, z: real

i: integer

begin

i:=10;

while i>10 do

begin

y=x + z;

i:=i+2

end;

в) var i: real;

s: integer;

i:=10;

repeat

y:= SQR(i)

until i>10;

write y;

г) var x,y,z: integer;

i:real;

begin

x:=4.2;

y:=3.4;

i:=12;

for i:=1 to 12 do

begin

z:= (x+y)*z

end;

д) var i: real;

begin

i:=25;

while i>=30 do

begin

writeln(i:4, i*i:6);

i:=i+1;

end;

Який з фрагментів програми не містить помилок:

а) var s,y,x: real;

begin

s:=0; x:=0.4;

repeat

y:=x*sin(x);

s:=s+y;

until s>2;

end;end.

б) var s, y, x: real

i: integer

s:=0; x:=0.2;

for i:=i to 2 do

begin

y:=sin(x)+A;

end;

в) var s, x, y: integer

s:=0; x:=0.4;

for i:=1 to 4 do

y= cos(x)*I;

end;

г) var s, x, y, z: real

s:=0.4;

x:=1.2;

11: y:=x+sin(x) + s

x:=x+s;

if x>6.4 then

goto 11

end;

д) var s,y,x: real;

begin

s:=0; x:=0.4;

repeat

y:=x*sin(x);

s:=s+y;

while s<2;

end;end.

Який з фрагментів програми не містить помилок:

а) var A, x, y: real

I: integer

begin

A:=4.2; x:=0.5;

for i:=1 to 5do

begin

y:=sin(x+A)*x;

end; end.

б) var x, y, integer

x:=0.4;

if x><0 then

y:= sin(x);

end;

в) var A, x, y: integer;

begin

A:=4.3;

x:=0.2;

for x:=1 to 5 step 0.2 do

begin

y=cos(x+A)*ln(x);

end; end.

г) var A, x, y, real;

A:=0.2;

x:=0.4;

for i:=1 to 5 do

begin

y:=2 + (A+x)*i

end;

д) var A, x, y: integer;

i: double;

begin

A:=4.2; x:=0.5;

for i:=1 to 5do begin

y:=sin(x+A)*x;

end; end.

Який з фрагментів програми не містить помилок:

а) var x, a, s integer;

A:=4.2;

2: y=sin(x+A);

X:=x+A;

end;

goto 2

end;

б) var A, b, x, ya: real;

i:=integer;

A:=4.2;

B:=3.4;

for i:=1 to12 do

y=(A+B)*i;

end; end.

в) var x, b, s: real;

A: integer;

A:=4.2;

x=sin(x+A)*b;

if x>0 then x=x*2;

end; end.

г) var x, a, b, y, h:real;

begin

readln(a, b, h);

x:=a;

while x<=b+h/2 do

begin

y:=x*sin(x);

writeln(x:6:1, y:9:2);

x:=x+h

end; end.

д) var x, a, b:real; y, h: integer;

begin

readln(a, b, h);

x:=a;

while x<=b+h/2 do

begin

y:=x*sin(x);

writeln(x:6:1, y:9:2);

x:=x+h

end; end.

Який з фрагментів програми не містить помилок:

а) var x, y, z, A: real;