Đếm ô vuông
CHƯƠNG TRÌNH: program bai3_ovuong; const fi=’SQUARE.INP’; fo=’SQUARE.OUT’; var f:text; a,nga,doc:array[1..1000,1..1000] of integer; i,m,n,d,j:integer; procedure nhap; var i,j:integer; begin assign(f,fi); reset(f); readln(f,m,n); for…
CHƯƠNG TRÌNH: program bai3_ovuong; const fi=’SQUARE.INP’; fo=’SQUARE.OUT’; var f:text; a,nga,doc:array[1..1000,1..1000] of integer; i,m,n,d,j:integer; procedure nhap; var i,j:integer; begin assign(f,fi); reset(f); readln(f,m,n); for…