Question

Составьте программу вычисления суммы целых чисел от 1 до K.(через паскаль)Пж помогите...

Answer 1

Var i,n,sum: integer;
begin
sum:=0;
writeln('Введите число, которое > 1');
readln(n);
for i:=1 to n do
begin
sum:=sum+i;
end;
writeln(sum);
End.