Известно первый и пятый члены арифметической прогрессии. Найти величину члена прогрессии с номером n и сумму n членов. написать это в программе паскаль.

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Pascal:

program ArithmeticProgression;
var
a1, a5, n, d, an, sum: integer;
begin
writeln('Введите первый и пятый члены арифметической прогрессии:');
readln(a1, a5);
d := (a5 - a1) div 4; // находим разность прогрессии
writeln('Введите номер члена прогрессии (n):');
readln(n);
an := a1 + (n - 1) * d; // находим член прогрессии с номером n
sum := n * (a1 + an) div 2; // находим сумму n членов прогрессии
writeln('Член прогрессии с номером ', n, ' равен ', an);
writeln('Сумма ', n, ' членов прогрессии равна ', sum);
end.

Программа запрашивает у пользователя первый и пятый члены арифметической прогрессии, а затем по номеру члена находит значение этого члена и сумму всех членов до указанного номера.