... write('Nhap so pt:');readln(n); for i:=1 to n Begin write('st[',i,']=');readln(st[i]); End; b[i]:=0; for i:=1 to n for j:=i to n if st[i]=st[j] then inc(b[i]); max:=b[1]; for i:=1 to n if b[i]>max ... Program uses crt; var a : array [ 20] of byte; i,n,d,j,k : integer; Procedure nhap; Begin for i :=1 to n Begin write(' a[',i,']='); readln(a[i]); End; End; Procedure nguyento; ĐT : 0972.311.481 ... i : byte ; BEGIN Clrscr ; For ch :='A' to 'Z' Do a[ch] :=0 ; Writeln (' Go phim 50 lan ') ; ĐT : 0972.311.481 Trang 28 Trần Văn Chung trường giáo viên trường THPT Hoàng Văn Thụ Nha Trang For...
... đường thẳng xy a) Vẽ tia OA, OB, OC b) Kể tên tia đối hình vẽ c) Kể tên tia trùng hình vẽ d) Tia Ax By có phải hai tia đối không? Cho hình vẽ: a) Kể tên tất tia (phân biệt) O b) Kể tên tia đối C B...