Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из...

Question

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. Составить программу на паскале!

Answer 1

Var
   N,B:longint;
   k:byte;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
    Begin
    k:=1;
    B:=n;
    While B>0 do
       Begin
       if B mod 10<>0 then
          Begin
          if n mod (B mod 10) <> 0 then k:=0
          End
       else k:=0;
       B:=B div 10
       End;
    if k=1 then Write(n,' ')
    End;
End.