{Визначити j-цифpовў числа остачў пpи дўленнў на числа, якў вўдповўдають цифpам числа pўвнў 0 (10 балўв)} program z3; var a,b,s: string; i,j,k,m,x,y,c: integer;f: boolean; begin writeln; writeln('Введўть кўлькисть цифp j'); readln(j); a:=''; b:=''; for i:=1 to j do begin a:=a+'1'; b:=b+'9'; end; val(a,x,c); val(b,y,c); for i:=x to y do begin str(i,s); f:=true; for k:=1 to j do begin val(s[k],m,c); if m=0 then begin f:=false; break end; if (i mod m<>0) then begin f:=false; break end; end; if f then write(i,' '); end; writeln; writeln; end.