3. определить количество натуральных чисел, сумма - вопрос №31009356623 от Даниил5702 11.08.2020 07:33

Question

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

Даниил5702 · 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....