Напечатать на экране числа 2187,729,243,...,3.
Напечатать на экране числа 2187,729,243,...,3.
Гость
Ответ(ы) на вопрос:
Гость Var a:integer;
begin
a:=2187;
while a>1 do
begin
write(a,' ');
a:=a div 3;
end;
end.
Результат:
2187 729 243 81 27 9 3
Не нашли ответ?
Похожие вопросы