var
n,sum,j:integer;
begin
readln(N);
Sum:=0;
for j:=1 to N do
Sum:=Sum+j;
writeln(sum);
end.
Результат работы программы
Написать программу вычисления суммы первых n членов последовательности (k=1,2,3..,n) — Pascal(Паскаль)
var
n,sum,j:integer;
begin
readln(N);
Sum:=0;
for j:=1 to N do
Sum:=Sum+j;
writeln(sum);
end.