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