Регистрация Спросить otvet5GPT
tatyankafi
21.05.2023 13:48
Информатика
Есть ответ 👍

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. составить программу на паскале!

292
334
Посмотреть ответы 2

Ответы на вопрос:

likunya
likunya
4,4(16 оценок)
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.
Kristina162000
Kristina162000
4,8(71 оценок)
1- ввода, 2 - память, 3 -современные, 4 - работающие

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS