PROGRAM BAILAM2;USES CRT;CONST FIN1='KTHUOC

BÀI 2.

program bailam2;

uses crt;

const fin1='kthuoc.inp';

fin2='ngang.inp';

fin3='doc.inp';

var f1,f2,f3:text;

a,nga,doc:array[1..100,1..100] of integer;

i,m,n,d,j:integer;

procedure nhap;

var i,j:integer;

begin

assign(f1,fin1); reset(f1);

read(f1,m,n); close(f1);

assign(f2,fin2); reset(f2);

for i:=1 to m do

begin

for j:=1 to n-1 do

read(f2,nga[i,j]);

readln(f2);

end;

close(f2);

assign(f3,fin3); reset(f3);

for i:=1 to m-1 do

for j:=1 to n do

read(f3,doc[i,j]);

readln(f3);

end;

clrscr;

nhap; d:=0;

for i:=1 to m do

if nga[i,j]+nga[i+1,j]+doc[i,j]+doc[i,j+1]=4 then inc(d);

write(d);

readln;

end.