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

ElleFox ElleFox    3   29.09.2019 05:03    6

Ответы
МисАлександра МисАлександра  21.08.2020 18:17

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика