Помогите с Паскалем. Задача в прикрепленных.

Question

Помогите с Паскалем. Задача в прикрепленных.

---

Answer 1

Var
   a,b,c,f:longint;
Begin
Read(a,b);
For b:= a to b do
    Begin
    c:=b;
    f:=1;
    While c > 0 do
       Begin
       if c mod 10 = 0 then f:=0
       else if b mod (c mod 10) <> 0 then f:=0;
       c:=c div 10;
       End;
    if f = 1 then Write(b,' ')
    End;
End.