Question

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

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.