Пользователь вводит с клавиатуры числа P – первый член прогрессии, R – разность прогрессии и число N. Написать программу, которая выводит на экран все члены этой ариф-метической прогресс-сии, не превышающие N. На паскале пожалуйста.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: