Информатика

Венюша

10 сентября, 13:16

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

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

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.