Найти все натуральные числа, не превышающие заданного числа N, которые делятся без остатка на каждую из своих цифр

Question

Информатика

Виленина

5 сентября, 11:59

Найти все натуральные числа, не превышающие заданного числа N, которые делятся без остатка на каждую из своих цифр

+5

Ответы (1)

Знаете ответ на вопрос?

Стефа · Answer 1

Var

N, A, d, k:integer;

Begin

Write ('N = ') ; ReadLn (N) ;

For N: = 1 to N do

Begin

A:=N;

k:=0;

d:=0;

While A>0 do

Begin

k:=k+1;

if A mod 10 0 then

if N mod (A mod 10) = 0 then d:=d+1;

A:=A div 10;

End;

if k = d then WriteLn (N)

End;

End.