Question

Готовлюсь к ЕГЭ по информатике. Задача простая, но мои мозги ослабли после отдыха и не функционируют.
Определите, что будет напечатано в результате работы следующего фрагмента программы:

var a,b:integer;

begin

a:=8;

b:=-4;

while not (a=2) do

if b>0 then

a:=a div 2

else

begin

a:=a div 2;

b:=-b;

end;

a:=-a+2*b;

write(a);

END.

Answer 1

Напечатает        6
ЭТО ответ