Question

Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр.

Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .

Выходные данные
Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами.

Примеры
входные данные
10 20
выходные данные
11 12 15

!Язык Pascal ABC!

Answer 1

Program n1;
function isdel(n: integer): boolean;
var t: integer;
begin
isdel:=false;
t:=n;
while n<>0 do
begin
if n mod 10=0 then break;
if t mod (n mod 10)=0 then isdel:=true else
begin
isdel:=false;
break;
end;
n:=n div 10;
end;
end;
var a,b,i: integer;
begin
readln(a,b);
for i:=a to b do if isdel(i) then write(i,' ');
end.