Code bài DIFFER, mảng 2 chiều

const

   fin='differ.inp';   fon='differ.out';

   maxn=1000;maxm=1000;

var

   a,b:array[1..maxm,1..maxn] of char;

   m,n:longint;

procedure nhap;

var i,j:longint;

begin

readln(m, n);

for i:=1 to m do

   begin

   for j:=1 to n do read(a[i,j]);

   readln;

   end;

for i:=1 to m do

   begin

   for j:=1 to n do read(b[i,j]);

   readln;

   end;

end;

procedure xuli;

var

   d,i,j:longint;

begin

d:=0;

for i:=1 to m do

   for j:=1 to n do

      if a[i,j]<>b[i,j] then inc(d);

writeln(d);

end;

begin

assign(input,fin);reset(input);

assign(output,fon);rewrite(output);

nhap;

xuli;

close(input);close(output);

end.