var i,sum:integer;
begin
while sum<20 do begin
i:=i+1;
sum:=sum+i;
end;
writeln(i);
end.
Дай мне лучшее решение плиз)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var i,sum:integer;
begin
while sum<20 do begin
i:=i+1;
sum:=sum+i;
end;
writeln(i);
end.
Дай мне лучшее решение плиз)