Ответы на вопрос:
var n,i,k,d: integer; b: boolean;
begin
write('n = '); readln(n);
for i: =1 to n do
begin
b: =true;
k: =i;
while b and (k> 0) do
begin
d: =k mod 10;
if d< > 0 then b: =b and (i mod d = 0) else b: =false;
k: =k div 10;
end;
if b then write(i,' ');
end;
writeln;
end.
пример:
n = 25
1 2 3 4 5 6 7 8 9 11 12 15 22 24
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
zhanik201703.11.2021 09:20
-
Denis778810.05.2021 16:19
-
masha119521.03.2020 07:04
-
katy123123123312.07.2020 01:42
-
ДианаИванова1123.10.2022 03:47
-
Fentis00106.01.2020 13:40
-
Сиплел27.02.2020 18:43
-
Slado4ka16.11.2022 22:51
-
Olegg910.06.2022 10:55
-
Арти123456789002.02.2023 12:14
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.