Ngày tải lên :
06/01/2014, 08:14
... boolean; Truoc: array[1 50] of byte; n, i0, j0: byte; Procedure khoitao; Var i, j : byte; f:text; tenfile:string; Begin write(‘ten file’); readln(tenfile); assign(f, tenfile); reset(f); readln(f,n,i0,j0); ... : byte; f:text; tenfile:string; Begin write(‘ten file’); readln(tenfile); 60 assign(f, tenfile); reset(f); readln(f,n,i0,j0); for i:=1 to n begin for j:=1 to n read(f, a[i,j]); readln(f); end; ... Khoitao; Var i, j : byte; f:text; tenfile:string; Begin write(‘ten file’); readln(tenfile); assign(f, tenfile); reset(f); readln(f,n,i0,j0); for i:=1 to n begin 64 for j:=1 to n read(f, cp[i,j]); readln(f);...