Задание:
ПОМОГИТЕ ПОЖАЛУЙСТА. Составьте алгоритм вычисления суммы натуральных чисел, не превышающих заданного натурального числаN.
Решение:
Если я все правильно понял, то вот: var x,n,s: integer; beginreadln (n); for x: =1 to n do s: =s+x; writeln (s); end.
Знаете другой ответ?