Напишите программу, которая подсчитает сумму натуральных чисел от 1 до n вот ! пример! в : написать пр-му, которая выводит все натуральные числа от 1 до n program zd; var i,n: integer; begin writeln('введите n'); readln(n); for i: =i to n do begin writeln(i,' '); end; end.
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
write('сумма: ',sum);
end.