Войти Регистрация Спроси ai-bota

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

Ответ:

farita1

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

0,0(0 оценок)

Популярные вопросы: Информатика

Noltee

27.10.2022 16:14

Сколько существует различных символьных последовательностей длины 5 в четырех буквенном алфавите {a, c, g, t}, которые содержат ровно две буквы a?...

rusakovwn

05.08.2020 15:39

Напишите программу, для расчета значения выражения при заданных x и y, с выводом результата на экран: 2y^2+5+y...

Вадим363737466

05.08.2020 15:39

Как решить в ящеке а кг лука , а в мешке-5 раз больше.на сколько кг лука больше в мешке чем в ящеке?...

ДАШАСОКОЛОВА321

05.08.2020 15:39

Для передачи по каналу связи сообщения, состоящего только из букв а, б, в, г, решили использовать неравномерный по длине код: a=0, б=100, в=101. как нужно закодировать букву...

gjgfhbj5

19.04.2023 19:08

Напиши определение антивирусной программы...

vazovskiy2013

20.12.2022 22:37

5. сколько различных чисел можно закодировать с 8 бит? ....

Sonya5ï

20.12.2022 22:37

Линейный алгоритм. найдите среднее арифметическое d=a+b+c/3 a b c -целые числа, заданны с клавиатуры...

gan1298

20.12.2022 22:37

Создать массив из 10 целых чисел принадлежащих промежутку -50 до 50. посчитать сумму положительных и количество отрицательных элементов массива...

NadyaSmirnovaa

25.05.2023 09:32

Решить примеры! 48: 24 32: 16 88: 11 75: 25 64: 32 85: 17 всё...

lancasterr

25.05.2023 09:32

Почему при демократической системе правления необходимо существование сильных политических партий?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку