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.