uses crt;
var f1,f2:text;
n,i:longint;
A:array[1..100000]of longint;
procedure Nhap;
begin
       assign(f1,'tthuong.inp');reset(f1);
       assign(f2,'tthuong.out');rewrite(f2);
            readln(f1,n);
                    for i:=1 to n do
                       read(f1,A[i]);
end;
function timmin(m:longint):longint;
var min,a:longint;
begin
   min:=10000;
                  while m<>0 do
                     begin
                         a:=m mod 10;
                         if a<min then min:=a;
                         m:=m div 10;
                   end;
                  timmin:=min;
end;
function timmax(k:longint):longint;
var max,b:longint;
begin
  max:=0;
                  while k<>0 do
                     begin
                         b:=k mod 10;
                         if b>max then max:=b;
                         k:=k div 10;
                   end;
                  timmax:=max;
end;
procedure Xuly;
var dem:longint;
begin
  dem:=0;
             for i:=1 to n do
                   if timmax(A[i]) mod timmin(A[i])=0 then inc(dem);
                        write(f2,dem);
end;
begin
Nhap;
Xuly;
close(f1);close(f2);
end.
          

Bài hơi rối có gì bạn hỏi lại mình nha