Найти количество натуральных чисел,сумма которых не превышает 100

Question

Найти количество натуральных чисел,сумма которых не превышает 100

Comments

Да

---

Количество

Answer 1

Задача решена в TPascal
var s,k,i:integer;
begin
i:=1;s:=0;k:=0;
while s<100 do<br>begin
 k:=k+1; s:=s+i; i:=i+1;
end;
writeln (k);
readln;end.