Определите, что будет напечатано в результате выполнения следующего алгоритма: 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-2a else a:=2b-a end; writeln(a) end.

Question

Определите, что будет напечатано в результате выполнения следующего алгоритма: 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-2a else a:=2b-a end; writeln(a) end.

Определите, что будет напечатано в результате выполнения следующего алгоритма: 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.

Гость

Ответ(ы) на вопрос:

Accepted Answer

Гость

Результат будет число -88

Определите, что будет напечатано в результате выполнения следующего алгоритма: 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.

Определите, что будет напечатано в результате выполнения следующего алгоритма: 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-2a else a:=2b-a end; writeln(a) end.