Question

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

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

Answer 1

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.