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

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.

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.

Polymesiz · Answer

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

Вычислите значение переменной у после выполнения алгоритма. 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.

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

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.