Информатика, опубликовано 2018-08-22 23:28:40 by Гость
Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не превосходящие N и делящиеся на каждую из своих цифр.
Ответ оставил Гость
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ ".../Отделы/Обмен/", Приём;
ПЕР
N, сч: ЦЕЛ;
ЗАДАЧА Делится_на_цифры(число: ЦЕЛ): КЛЮЧ;
ПЕР
ч: ЦЕЛ;
УКАЗ
ч := число;
ПОКА ч > 0 ВЫП
ЕСЛИ число ОСТАТОК (ч ОСТАТОК 10) # 0 ТО
ВОЗВРАТ ОТКЛ
КОН;
ч := ч ДЕЛИТЬ 10
КОН;
ВОЗВРАТ ВКЛ
КОН Делится_на_цифры;
УКАЗ
N := Приём.Число();
ОТ сч := 1 ДО N ВЫП
ЕСЛИ Делится_на_цифры(сч) ТО
Вывод.ЧЦел("^%d", сч, 0, 0, 0)
КОН
КОН
КОН Задание.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на