Question

Напишите программу, которая вводит натуральное число N и нахо­
дит сумму всех натуральных чисел от 1 до N. Используй цикл с предусловием

Answer 1

Program z1;
var a,n,i,sum:integer;
Begin
sum:=0;
read(n);
for i:=1 to n do
begin
read(a);
sum:=sum+a;
end;
writeln(sum);
End.