Определите, что будет напечатано в результате выполнения следующего алгоритма:

Var a,b,i: integer;

begin

a:=5;

b:=1;

for i:=1 to 10 do

begin

b:=a-i;

If a-b<6 then a:=b-2*a

else a:=2*b-a

end;

writeln(a)

end.

Gutrom    1   14.05.2020 18:29    0