program arifmseq;
var m,sum:real;
begin
writeln ('Введите число m');
read (m);
sum:=((1+m)/2)*m;
writeln ('сумма всех натуральных чисел от 1 до m=',sum);
end.
Объяснение:
program arifmseq;
var m,sum:real;
begin
writeln ('Введите число m');
read (m);
sum:=((1+m)/2)*m;
writeln ('сумма всех натуральных чисел от 1 до m=',sum);
end.
Объяснение: