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

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.

Zxcvbnm900    1   18.05.2020 18:23    0