Знайти послідовність чисел якщо 1 число = 3 а кожне наступне попередньо помножене на 3 останнє число не перевищує 30
Знайти послідовність чисел якщо 1 число = 3 а кожне наступне попередньо помножене на 3 останнє число не перевищує 30
Гость
Ответ(ы) на вопрос:
ГостьКод Pascal:
Var A:integer;
Begin
A:=1;
While A<30 do
Begin
Write(A,' ');
A:=A*3;
End;
End.
Результат работы программы:
1 3 9 27
Не нашли ответ?
Похожие вопросы