Найти количество натуральных чисел,сумма которых не превышает 100

Question

Информатика: Найти количество натуральных чисел,сумма которых не превышает 100

pitonpitonov · Answer

Задача решена в TPascalvar s,k,i:integer;begini:=1;s:=0;k:=0;while s 100 do begin  k:=k+1; s:=s+i; i:=i+1; end;writeln (k);readln;end....