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

Question

Информатика

Гюльчевра

1 января, 04:52

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

+2

Ответы (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.