Напечатать на экране числа 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы