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

Var   d: integer;   i, k, n: longint;   flag: boolean; begin   write('введите верхнюю границу для счета: '); readln(k);   for i : = 1 to k do   begin       n : = i;       repeat           d : = n mod 10;           if d > 0 then flag : = ((i mod d) < > 0) else flag : = true;           if (not flag) then n : = (n div 10)       until (flag or (n = 0));       if n = 0 then write(i, ' ')   end;   writeln end. тестовое решение: введите верхнюю границу для счета: 1237 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

Робот пылесос к примеру.  роботы-пылесосы – это уникальное решение для тех, кто не любит делать уборку или тех, у кого на это катастрофически мало времени. система искусственного интеллекта aware позволяет обеспечить качественную уборку во всем помещении, даже под мебелью или вокруг ножек стола. роботы-пылесосы распознают ступеньки и перепады высоты - и можно не бояться, что прибор упадет с лестницы. некоторые приборы позволяют программировать график работы на неделю. моющий робот-пылесос прекрасно очищает полы не только от пыли, но и от пролитой жидкости и грязи. безусловно полезен для общества

полностью

категория     количество сайтов

сканер           200

принтер         250

монитор         450

сколько сайтов будет найдено по запросу  

принтер | сканер | монитор

если по запросу принтер | сканер было найдено 450 сайтов, по запросу принтер & монитор – 40, а по запросу сканер & монитор – 50.

решение

сканер - с =200

принтер - п =250

монитор - м =450

п | с=450

п & м=40

с & м=50

п | с | м-?

формула включений-исключений

п | с | м = п + с + м - (п & м) - (п & с) - (с& m) + (п & с & м)

п | с = п + с - п & с => п & с = п | с - п - с = 450 - 200 - 250 = 0 (не пересекаются)

значит п & с & м = 0 аналогично

п | с | м = п + с + м - (п & м) - (п & с) - (с& m) + (п & с & м) = 250+200+450-40-0-50+0 = 810

ответ 810