М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
MissKaprizz99
MissKaprizz99
15.11.2020 06:02 •  Информатика

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

👇
Ответ:
begimay2
begimay2
15.11.2020
Var
N,A,d,k:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    A:=N;
    k:=0;
    d:=0;
    While A>0 do
       Begin
       k:=k+1;
       if A mod 10 <> 0 then
          if N mod (A mod 10) = 0 then d:=d+1;
       A:=A div 10;
       End;
    if k = d then WriteLn(N)
    End;
End.
4,6(63 оценок)
Ответ:
together43
together43
15.11.2020
Var
N,C,k,d:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    C:=N;
    k:=0;
    d:=0;
    While C<>0 do
       Begin
       k:=k+1;
       if C mod 10 <> 0 then
          if N mod (C mod 10) = 0 then d:=d+1;
       C:= C div 10
       End;
    if d=k then Write(N,' ')    
    End;
End.

Пример:

N = 2017
1 2 3 4 5 6 7 8 9 11 12 15 22 24 33 36 44 48 55 66 77 88 99 111 112 115 122 124 126 128 132 135 144 155 162 168 175 184 212 216 222 224 244 248 264 288 312 315 324 333 336 366 384 396 412 424 432 444 448 488 515 555 612 624 636 648 666 672 728 735 777 784 816 824 848 864 888 936 999 1111 1112 1113 1115 1116 1122 1124 1128 1131 1144 1155 1164 1176 1184 1197 1212 1222 1224 1236 1244 1248 1266 1288 1296 1311 1326 1332 1335 1344 1362 1368 1395 1412 1416 1424 1444 1448 1464 1488 1515 1555 1575 1626 1632 1644 1662 1692 1715 1722 1764 1771 1824 1848 1888 1926 1935 1944 1962
4,6(21 оценок)
Ответ:
Milkiskiss
Milkiskiss
15.11.2020
Куб это ли
Ольбб

Бюджет..л об
4,7(37 оценок)
Открыть все ответы
Ответ:
3ТОН
3ТОН
15.11.2020

Существуют две характеристики состояния окон:

1. Окна приложений и окна документов могут находиться в одном из двух состояний: свернутом или развернутом. В свернутом состоянии окно представляет собой полоску на панели задач со значком и титульной надписью. Диалоговые окна сворачиваться не могут.

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

4,8(55 оценок)
Ответ:
trololoshka25
trololoshka25
15.11.2020
1. датчик цвета распознает семь цветов: чёрный, синий, зелёный, жёлтый, красный, белый и коричневый.
2.извини незнаю
3. Для того, чтобы робот двигался постоянно вдоль черной линии в программе используется бесконечный цикл в нем происходит считывание данных с датчиков цвета, освещенности, анализ данных датчиков и соответсвующие маневры робота. В нашем роботе левый датчик цвета подключен к порту 3, правый датчик подсоединен к порту 1. Левый мотор подключен к порту В, правый мотор к порту А.
4. Датчик цвета позволяет определять цвет поверхности.
5. Поворот с использованием колеса является не очень точным. Если вы попытаетесь повернуть своего робота на пыльной или скользкой поверхности, он может не достичь правильного угла
6.извини незнаю
7. робот видит цвет линии и ездит по ней
4,5(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ