Задание:
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа N. Напишите программу на Паскале. P.S. Тема урока-программирование циклов
Решение:
var sum,n,i: integer; beginreadln (n); sum: =0; for i: =1 to n do sum: =sum+i; writeln (sum); readln; end.
Знаете другой ответ?