Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .
Выходные данные
Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами.
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.