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

Пишем программу:

program qq;

var i, n, k, f:integer;

begin

writeln ('Vvedite n: '); readln (n);

for i:=1 to n do

begin

k:=i; f:=0;

while (k0) do

begin

if (k mod 10>0) and (i mod (k mod 10) >0) then f:=1;

k:=k div 10;

end;

if (f=0) and (i mod 10>0) then write (i,' ');

end;

end.

Программа написана.