I: integer;

begin

A:=4.2;

x:=0.4;

for i:=1 to 5 do

begin

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

end; end.

б) var x, y, z: integer

begin

A:=4.2;

x:=0.3;

for i:=1 to 5 do

begin

y=SQRT(A+x)+sin^(x);

end; end.

в) var x, y, z, real;

i, integer;

A:=8.3;

x:=0.2;

if x>0 and A>8

then

y=A+x;

end;

г) var A, x, y, z, real

i, integer

A:=4.2;

x:=3.8

z:=4.2;

if z>0 then

y=sin(x+A+z)*log(z);

end; end.

д)

var x, z, A: real; i,y:byte;

begin

A:=4.2;

x:=0.4;

for i:=1 to 5 do

begin

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

end; end.

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

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

i: integer

A:=4.2;

x:=0.3;

for i:=0.1 to 0.5 do

begin

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

end;

б) var x, y, z, A real

i integer

x:=0.2;

A:=4.5;

repead

y:=sin(x+A);

x:=x+0.4;

end;

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

I: integer;

begin

A:=1.2;

x:=0.5; D:=1;

for i:=1 to 8 do

begin

y:=sin(A+x);

D:=D+y;

end; end.

г) var x, y, z, integer;

i: real

begin

x=0.4;

z=8.4;

repeat

y=sin(x+0.4)

x:=x+y;

until y<4.2

end; end.

д) var D, x, A: real; y,i: byte;

begin

A:=1.2;

x:=0.5; D:=1;

for i:=1 to 8 do

begin

y:=sin(A+x);

D:=D+y;

end; end.

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

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

begin

D:=0;

x:=4.2;

z:=3.4;

repeat

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

D:=D+y;

until D>4;

end; end.

б) var x, k, l: real;

i: integer;

y:=4.2;

if y>4 then

x:=k*l*sin(y);

end;

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

begin

for i:=1 to15 do

if I mod 2=0 then

y=sin(x+2);

end;end.

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

i: integer

y=0.5;

s=4.2;

for x:=0.2 to 0.8 do

begin

z:=x+s+sin(y);

end; end.

д) var x, y, z, D: real;

begin

D:=1;

x:=4.2;

z:=3.4;

repeat

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

D:=D+y;

until z>4;

end; end.

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

а) var s; x: real;

p: integer;

begin

p:=0.2;

s:=0.4;

while p<4

p:=p*s+1

end;

б) var p; z: integer;

p:=5;

while p<5 do

p:=(2*p)+0.5;

p:=p+1;

end;

в) var p: integer;

begin

p:=2;

while p<10 do

begin

p:=2*p+1;

p:=p+1;

end; end.

г) var p : real; z : integer;

p:=5;

repeat

z:=p*2+sin(p);

until z>10;

д) var p : integer;

begin

p:=4;

for p<10 to p>15 do begin

p:=2*p+1;

p:=p+1;

end; end.

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

а) var p, z: integer;

begin

p:=4.5;

repeat

p:=-3*(p-6);

until p<0

…

б) var p, z: real;

p:=7.1;

while (p>7) and (p<20) do begin

p=(p+3)/2

p=p-1

end;

…

в) var p:z: integer;

begin

p:=2;

repeat

z:=p*0.2+sin(p)

p:=p+0.2

until p>5;

…

г) var p, z, A: integer

p:=7;

while p>5 do

p:=(p+3)/2;

p:=p-1;

end;

…

д) var p:z: integer;

begin

p:=2;

repeat

z:=p*0.2+sin(p)

p:=p+0.2

until p<5;

…

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

а) var x, y, s, min: real;

i: integer;

begin

x:=0.5; s:=5.2;

min:=x*(s+x);

for i:=1.1 to 5.5 do begin

if min>y then min:=y;

x=x+0.2;

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

end.

б) var x, y, s, min: real;