ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР число, куб: ЦЕЛ;
УКАЗ число := 1; КОЛЬЦО УВЕЛИЧИТЬ(число); куб := число * число * число; ПОКА куб > 10000 ВЫП куб := куб ДЕЛИТЬ 10 КОН; ЕСЛИ куб = 2016 ТО Вывод.ЧЦел("%d", число, 0, 0, 0); ВЫХОД КОН КОН
КОН Задание.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
