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.

Объяснение: