Вывести на экран количество последовательных натуральных чисел (начиная с 1), необходимых для того, чтобы их сумма была больше какого-либо введённого пользователем n.
Ответ:
Var
n, a : integer;
Begin
Readln(n);
a:=0;
Repeat
a:=a+1;
Writeln(a);
Until a=n;
Readln;
End.
Объяснение:
Я смог помочь!?