Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. (программа Паскаль)
Вопрос посетителя
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
Ответ эксперта
uses crt;
var n,i,j:integer;
f:boolean;
begin
clrscr;
write(‘Введите натуральное число n=’);
readln(n);
for i:=1 to n do
begin
f:=true;
j:=i;
while (j>0)and f do
if (j mod 10=0)or(i mod (j mod 10)<>0) then f:=false
else j:=j div 10;
if f then write(i,’ ‘);
end;
readln
end.
