Задача №1 Выполнить трассировку (прогон) программы и определить, что будет выведено на экран после выполнения фрагмента программы. (4 балла)


……


Begin


А:=1;


For С:=10 downto 5 do


Begin


A:=A+C;


End;


Writeln (‘Значение A=’, A);


End.


Задача №2 Выполнить трассировку (прогон) программы и определить, чему будет равно значение переменной b после выполнения фрагмента программы. (4 балла)


……


Begin


b:=0;


For k:=2 to 3 do


Begin


For i:=1 to 2 do


b:=b+2*i*k;


End;


End;


b:=sqr (b);


Writeln (‘b=’, b);


End.


Задача №3 Выполнить трассировку (прогон) программы и определить, чему будет равно значение переменной X и S после выполнения фрагмента программы. (7 баллов)

……

Begin

S:=0; X:=10; A:=0; B:=0;

For i:=1 to 3 do

Begin

S:=S+2*i;

if X>=6 then X:=X / 2

else X:=X*6;

End;

if S
S:=Dec (S);

X:=Inc(X);

End;

Writeln (‘X=’, X);

Writeln (‘S=’, S);

End.