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

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

program ArithmeticProgression;
var
P, R, N, i, a: integer;
begin
writeln('Введите первый член прогрессии P:');
readln(P);
writeln('Введите разность прогрессии R:');
readln(R);
writeln('Введите число N:');
readln(N);
i := 0;
a := P;
while a <= N do
begin
writeln(a);
i := i + 1;
a := P + i * R;
end;
end.

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