Question

Составить алгоритм для вычесления суммы с заданным числом N численного ряда (цикл LOOP) и выполнить проверку данного алгоритма. Писать программу для вычесления суммы НЕ НУЖНО!
Просто составить алгоритм и выполнить проверку

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.