Регистрация
vanuaevstifeev
28.10.2020 08:52
Информатика
Есть ответ 👍

8 значное число вывести его цифры​

283
349
Посмотреть ответы 1

Ответы на вопрос:

JustNika
JustNika
4,4(6 оценок)

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.

Объяснение:

Популярно: Информатика