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

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.

1) 0

2) -5

3) -10

4) нет правильного ответа

AKBARXXX    3   15.05.2020 08:48    5