Информатика, опубликовано 2018-08-22 22:00:00 by Гость
Напечатать на экране числа 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.