//PascalABC.NET //Версия 3.3, сборка 1627 function f(x: integer): boolean; begin f:=false; var c:=0; foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do if (x mod item=0) then inc(c); if c=x.ToString.Count then f:=true; end; begin var n:=ReadInteger; range(1,n).Where(x->f(x)).Println; end.
Answers & Comments
Verified answer
//PascalABC.NET//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x->f(x)).Println;
end.