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

Question

Информатика

Увита

8 ноября, 03:52

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.