Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .
Выходные данные
Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами.
lesyastruklol
1
01.01.2021 17:38
34
Другие вопросы по теме Информатика
dianapopova1879
06.09.2019 15:15
trixi1989vv
18.02.2020 10:33
DOLBONAFT
18.02.2020 10:35
mashamariya11111
24.11.2020 17:10
1207malinap0c23p
24.11.2020 17:10
1235124
24.11.2020 17:11
DASHA135111
24.11.2020 17:11
Seasons1
24.11.2020 17:11
Популярные вопросы
- 6. Укажите предложения с ошибкой в употреблении числительного, ошибку исправь....
3 - Составьте всевозможные четырёхзначные числа из цифр 3 5 6 9, повторяя их...
3 - СДЕЛАЙТЕ ВСЁ, ЧТО СМОЖЕТЕ ! ...
2 - Заполните таблицу, используя карту промышленности мира и дополнительные источники...
2 - Утворіть усі можливі форми наказового до слів дивитися, казати,стати, сісти,...
3 - Менің Қазақстаным әлемдік аренада тақырыбында әңгіме құрап жаз....
3 - 0,6×(4x-0,5)-0,8=0,5×(5x-18,6)...
1 - Розв яжи графічно систему рівнянь: {y=4x−8y=2x−6 Відповідь: (записати координати...
2 - 1.нарисуйте острый, тупой и прямой угол с трёх лучей. определите градусную...
1 - Какое впечатление произвёло на вас стихотворение На дне моей жизни Твардовского...
3
program z1;
var a,b,i,c,k:integer;
begin
read (a, b);
for i:=a to b do
begin
c:=i;
if c mod 10 = 0 then k:=1 else k:=0;
while (c > 0) and (k = 0) do
begin
if i mod (c mod 10) <> 0 then k:=1;
c:=c div 10;
if (c>0) and (c mod 10 = 0) then k:=1
end;
if k = 0 then write (i,' ')
end
end.