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

program zz1;

var n, i, s, p, v, k:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим заданное количество чисел

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все числа от единицы до заданного n

begin

s:=i; p:=0; k:=0;

while s > 0 do / / пока в числе есть цифры

begin

v:=s mod 10; / / получаем последнюю

k:=k + 1; / / считаем ее

if (v0) and (i mod v = 0) then p:=p+1; / / если число делится на цифру, то считаем

s:=s div 10; / / отбрасываем цифру из числа

end;

if p = k then write (i,' ');

end;

end.