Question

ПРОГРАММА PASCAL. ПОЛЬЗОВАТЕЛЬ ВВОДИТ A1 И N НАЙТИ AN (АРИФМИТИЧЕСКАЯ ПРОГРЕССИЯ)

Answer 1

Программа в приложении
Обращаю внимание, что разность прогрессии b задать нужно самому(4 строчка)

Answer 2

Для создания программы на языке Pascal, которая вычисляет n-ый член арифметической прогрессии с заданным первым членом a1 и разностью d, вы можете использовать следующий код:

pascalCopy code
program ArithmeticProgression;

var
  a1, n, d, an: integer;

begin
  // Введите значения a1 и n
  write('Введите первый член a1: ');
  readln(a1);
  write('Введите номер члена n: ');
  readln(n);

  // Вычисляем разность d (предполагаем, что это арифметическая прогрессия)
  // В данном случае, разность d будет равна 1
  d := 1;

  // Вычисляем n-ый член арифметической прогрессии
  an := a1 + (n - 1) * d;

  // Выводим результат
  writeln('n-ый член арифметической прогрессии: ', an);

  // Завершаем программу
  readln;
end.

Этот код позволяет пользователю ввести значения a1 и n, а затем вычисляет n-ый член арифметической прогрессии с разностью d, которая в данном случае установлена на 1. Результат выводится на экран.