Условие задачи
Составьте программу Pascal для решения задачи:
Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до М.
Значение М задайте путем ввода с клавиатуры самостоятельно.
Ответ
Текст программы
Var a1, an, d, m, s, i: integer;Begin write('m = ');readln(m); a1:=1; s:=a1; For i:=2 to m do Begin an:=a1+1; a1:=an; s:=s+a1; End; writeln('Сумма = ',s);E...