Question

Вычислите значение переменной у после выполнения алгоритма.

Var x,y: integer;
Begin
x:=15;
y:=-10;
While x*y<0 do
Begin
x:=x-3;
y:=y+1
end;
writeln(y);
end.

Answer 1

Попробуй это засунуть в паскаль, и посмотришь ответ. Так я сказать не могу