I: integer;

begin

s:=0; x:=2.4;

for i:=1 to 15 do begin

y:=ln(x)*sin(x);

s:=s+y;

end; writeln(‘s=’,s:4:2);

end.

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

а) var D, x, y, і: real;

begin

D:=1; x:=0.8;

for i:=1 to 14 do begin

y:=cos(x)*x;

D:=D*y;

end; writeln(‘D=’,D:4:2);

end.

б) var D, x, y: real;

i: integer;

begin

D:=0;

for i:=1 to 8 do;

y:=ln(x)+x;

D:=D*y;

End; writeln(‘D=’,D:4:2)

в) var D, x, y: real;

i: integer;

D:=1; x=0.5;

for i:=1 to 10

y:=sin(x+x);

D:=D+y;

end; writeln(‘D=’,D:4:2);

end;

г) var D, x, y: integer;

i: real;

begin

x:=0.5; i:=1

for i:=1 to 10 do;

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

D:=D*y;

end; writeln(‘D=’,D:4:2);

end.

д) var D, x, y: real;

I: integer;

begin

D:=1; x:=0.8;

for i:=1 to 14 do

begin

y:=cos(x)*x;

D:=D*y;

end; writeln(‘D=’,D:4:2);

end.

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

а) Label 333;

var x, y, z:real;

x:=0.5; z:=0.5;

Label 333: y:=cos(x+z)+z;

x:=x+0.1;

if y>2 then

goto Label 333;

end;

б) var x, y, z: integer

i, real

x:=0.2; z:=0.4;

for i=1 to 2.4

y=sin(x+z)-z;

until y>0

end;

в) Label 33

var x, y, z: integer;

x:=0.5; z:=0.2

y:=sin(x)*exp(x);

33: x:=x+z;

if y>2 then

goto 33;

end; end.

г) var x, y, z:real;

i; integer

x:=0.5; z=0.2;

for i=1 to5 do

y=sin*(x+2)+lg(x)

end; end.

д) Label 333;

Var X, y, z:real;

x:=0.5; z:=0.5;

333: y:=cos(x+z)+z;

x:=x+0.1;

if y>2 then

goto 333

end;

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

а) var A, x, y: integer;

begin

A:=4.8; x:=0.7;

for x:=1 to 5 step 0.2 do begin

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

end; end.

б) var A, x, y: real;

begin

A:=4.5; x:=0.2;

for i:=1 to12 do begin

y:=sin(x+A)*x

end; end.

в) var A, x, y, real;

A:=0.2; x:=0.4;

for i:=1 to 10 do;

begin

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

end; end.

г) var x, y integer;

x:=0.4;

if x≠0 then

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

end; end.

д) var A, x, y: real;

i: integer;

begin

A:=4.5; x:=0.2;

for i:=1 to12 do begin

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

write(‘y=’, y:5:2);

x:=x+0.2;

end;

readln; end.

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

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

begin

A:=0.5; B:=0.4; x:=0.8;

Repeat

Y=sin(x+y)+A*B;

If y>0 then

Writeln(‘y=’,y:4:2);

until y>2

end; end.

б) var A, B, x, y: real;

A=0.4; B=0.5; x=0.2

for i:=1 to 10 do

y:=sin(x+A)*B

end; end.

в) var A, B, x, y: real;

begin

A:=2.4; B:=0.4; x:=0.8;

repeat

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

x:=x+y;

until x>4

end; end.

г) var A, B, x, y: real

i: integer

for i:=1 to 15 do

y:=cos(A+B)*A;

end; end.

д) var A, B, x, y: real;

begin

A:=2.4; B:=0.4; x:=0.8;

repeat

y=cos(A+B)*log(x);

x:=x+y;

until x<4

end; end.

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

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

i, integer;

A:=4.2; x:=3.8; z:=4.2;

if z>0 and x>3 then

y=sin(x*A*z);

end; end.

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

i: integer;

A:=4.2; x:=3.4; z:=0.3;

for i:=0.1 to 0.8 step0.1 do begin

y=sin(x+A)*i;

end; end.

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