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

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

1
Не видел что ты просил помочь, как увидел написал.

Ответы и объяснения

2014-02-10T12:13:40+04:00
Программа:
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.

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