Помогите пожалуйста с этим заданием.
Вывести на экран количество последовательных натуральных чисел (начиная с 1), необходимых для того, чтобы их сумма была больше какого-либо введённого пользователем n.(писать на паскале)
Ответ
Автор - Дмитрий Шишкин
Вот примерно: Program P1; uses crt; var i, sum: integer; n: real; begin clrscr; i:=0; sum:=0; write ('Введите число: '); readln (n); repeat i:=i+1; sum:=sum+i; write (' ', i); until sum>n; readkey; end.