Ответ:
x будет равен 3........
var x,y: integer;
begin
x:=1;
y:=8;
while y<>2 do
y:=y-x;
x:=x+1
end;
write(x)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
x будет равен 3........
Ответ:
var x,y: integer;
begin
x:=1;
y:=8;
while y<>2 do
begin
y:=y-x;
x:=x+1
end;
write(x)
end.