Question

Пользователь вводит с клавиатуры числа P – первый член прогрессии, R – разность прогрессии и число N. Написать программу, которая выводит на экран все члены этой ариф-метической прогресс-сии, не превышающие N. На паскале пожалуйста.

Answer 1

Ответ:

var P,R,N:integer;

begin

write('Введите первый член прогрессии ');

readln(P);

write('Введите разность прогрессии ');

readln(R);

write('Введите число N ');

readln(N);

while P<=N do

begin

writeln(P);

P:=P+R;

end;

end.

Объяснение:

Answer 2

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

pascalCopy code
program ArithmeticProgression;

var
  P, R, N, CurrentTerm: Integer;

begin
  Write('Введите первый член прогрессии P: ');
  Readln(P);

  Write('Введите разность прогрессии R: ');
  Readln(R);

  Write('Введите число N: ');
  Readln(N);

  CurrentTerm := P;
  while CurrentTerm <= N do
  begin
    Write(CurrentTerm, ' ');
    CurrentTerm := CurrentTerm + R;
  end;

  Readln;
end.

Пользователь будет попрошен ввести значения P, R и N. Затем программа выведет все члены арифметической прогрессии, начиная с P, с шагом R, пока член прогрессии не станет больше N.