Question

Вывести на экран количество последовательных натуральных чисел (начиная с 1), необходимых для того, чтобы их сумма была больше какого-либо введённого пользователем n.

Answer 1

Ответ:

Var

n, a : integer;

Begin

Readln(n);

a:=0;

Repeat

a:=a+1;

Writeln(a);

Until a=n;

Readln;

End.

Объяснение:

Я смог помочь!?