Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
usik6
18.06.2022 22:59 •
Информатика
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. составить программу на паскале!
Показать ответ
Ответ:
dshvedova06
06.10.2020 02:32
Var
N,B:longint;
k:byte;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
k:=1;
B:=n;
While B>0 do
Begin
if B mod 10<>0 then
Begin
if n mod (B mod 10) <> 0 then k:=0
End
else k:=0;
B:=B div 10
End;
if k=1 then Write(n,' ')
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
merinovamilania
27.02.2022 06:35
Книга содержит 256 страниц, на каждой из которых по 20 строк из 40 символов. сколько кбайт составляет вся книга, если использована 8 битная кодировка?...
mschibarova201
16.06.2020 01:09
нужен правильный ответ! сор по информатике...
kurtsmolovp00xqx
25.02.2020 15:18
На курсах лингвистики преподают иностранные языки: А(английский); К(китайский); Н(немецкий); Ф(французский) и Я(японский). Результаты проведённой контрольной работы по пятибальной...
polykanasch201
12.09.2022 20:02
СОР по информатике за 2 четверть, 9 класс 1 из 10 Ноутбук Ультрабук Производит Acer D-1 hdd, SSD, 800 Intel По какому полю была выполнена фильтрация данных? Производитель О озу HDD...
alinika2007
23.01.2020 22:45
укажите 2 причины которые может вызвать необходимость конвертации графических файлов из 1 формата в другой...
Leerok
22.07.2021 14:05
В кабинете информатики имеется очень много оборудования, все они соединены между собой сетью. Определите компьютерную сеть сор по инф...
guzelmuzepova
17.04.2023 10:26
Как выполнить печать документа...
sonyakaka332
22.02.2021 18:52
Определите фонетический признак , по которому одно из слов в данном ряду будет лишним.укажите этот признак: огород,оговор, круглого, оголить,поголовный....
agayevaaysu
22.02.2021 18:52
Запиши данные глаголы в начальной форме , укажи их спряжение . например : (он ) дума . думать - 1спр. , думает . (они ) , , (они ) кол , ,(он ) вид..т,(они ) ,гон..шь ,(они)хохоч..т,вян..те,...
satana2020
22.02.2021 18:52
ответить! вопрос из теста: 7 класс. в результате а) суммарная масса участвующих в реакции веществ не меняется. б) атомы в составе веществ, вступающих в реакцию, сохраняются. с) суммарное...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N,B:longint;
k:byte;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
k:=1;
B:=n;
While B>0 do
Begin
if B mod 10<>0 then
Begin
if n mod (B mod 10) <> 0 then k:=0
End
else k:=0;
B:=B div 10
End;
if k=1 then Write(n,' ')
End;
End.