3. Определить количество натуральных чисел, сумма которых превысит 100, если суммирование началось с 1 и каждое слагаемое на единицу больше предыдущего

Question

Информатика

Забела

11 августа, 07:53

3. Определить количество натуральных чисел, сумма которых превысит 100, если суммирование началось с 1 и каждое слагаемое на единицу больше предыдущего

+3

Ответы (1)

Знаешь ответ?

Алтух · Answer 1

PascalABC

var n, s:integer;

begin

n:=0;

s:=0;

while s<=100 do

begin

n:=n+1;

s:=s+n;

end;

writeln ('Количество чисел = ', n,'. Их сумма = ', s);

end.