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

Question

Информатика

Тонюра

12 июня, 13:12

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

+5

Ответы (1)

Знаете ответ?

Мишата · 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 100 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.