3. определить количество натуральных чисел, сумма - вопрос №93571253100 от auntsgarder 08.11.2020 11:53

Question

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

auntsgarder · Answer

PascalABCvar n,s:integer; begin  n:=0;  s:=0;  while s =100 do  begin    n:=n+1;    s:=s+n;   end;  writeln( Количество чисел = ,n, . Их сумма = ,s);  end....