Ngày tải lên :
07/09/2014, 07:11
... , String ,Record , Set of , File of If then Else , Case of , For to , For downto , While , Repeat until Chuyên Tin 10 45 With , goto , Exit, Halt ,Forward ,And , or, xor ,not, in ... Begin If i in chuato then Begin FillChar(Lienquan,Sizeof(Lienquan),0); For j:=1 to N If (A[i,j]=1) and (Mau[j]>0) then Lienquan[Mau[j]] := 1; For j:=1 to N If Lienquan[j]=0 then Begin mp := j; ... i,j : Integer; Begin FillChar(B,Sizeof(B),False); For i:=1 to Max Chuyên Tin 10 32 For j:= to N If i=A[j] then B[i]:= true; For x:=1 to Max If B[x]=False then Begin Write('So nguyen duong nho...