Ответ:
4
var x,y: integer;
begin
x:=1;
y:=8;
while y<>2 do
y:=y-x;
x:=x+1
end;
write(x)
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
4
var x,y: integer;
begin
x:=1;
y:=8;
while y<>2 do
begin
y:=y-x;
x:=x+1
end;
write(x)
end.