Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного...

Question

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа N. Напишите программу на Паскале. P.S. Тема урока- программирование циклов

Answer 1

var sum,n,i:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do

    sum:=sum+i;

writeln(sum);

readln;

end.