Напечатать на экране числа 2187,729,.

софа07022007 софа07022007    2   25.07.2019 16:20    0

Ответы
артемий59 артемий59  07.09.2020 20:18
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика