3. определить количество натуральных чисел, сумма - вопрос №31009356448 от Анастасия4487 22.01.2022 20:29

Question

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

Анастасия4487 · 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....