Question

Сколько чисел нужно взять в последовательности : 1+2+3+4...N. Чтобы получилось число, больше чем N? При N=252 нужно взять 23 числа

Программа + блок-схема.

Answer 1

Программа:
Var  n,i,sum:integer;
Begin 
  Write('Введите N в последовательности 1+2+3+4...N: '); readln(n);   
     while(sum<n) do begin     
i:=i+1;     
sum:=sum+i;     
             end; 
 Writeln('Чтобы получилось число больше ',n,' нужно взять ',i,' числа');
End.

Блок-схема в приложении