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