Ngày tải lên :
24/05/2015, 20:51
... C Thang'); if (A=0) and (B=1) and (C=0) then Write(' B Thang'); if (A=0) and (B=1) and (C=1) then Write(' A Thang'); if (A=1) and (B=0) and (C=0) then Write(' A Thang'); if (A=1) and (B=0) and ... (5,5,5,6,6,6,7,7,7 ,8) , (6,6,6,7,7,7 ,8, 8 ,8, 9), (7,7,7 ,8, 8 ,8, 9,9,9,0), (8, 8 ,8, 9,9,9,0,0,0,1), (9,9,9,0,0,0,1,1,1,2)); : MG; : mg1c; : longint; : text; procedure init; var k :integer; begin dem:=0; a:=h; ... (2,2,3,3,4,4,4,5,5,5) (3,3,4,4,5,5,5,6,6,6) (4,4,5,5,6,6,6,7,7,7) (5,5,6,6,7,7,7 ,8, 8 ,8) (6,6,7,7 ,8, 8 ,8, 9,9,9) (7,7 ,8, 8,9,9,9,0,0,0) (8, 8,9,9,0,0,0,1,1,1) (9,9,0,0,1,1,1,2,2,2) Vì số nghiệm nhiều nên ta muốn...