... DivB(a,b:bigint):bigint;beginDivB:=int(a/b);{ham cho phan nguyen cua mot so thuc va tra ve la kieu so thuc}end;function ModB(a,b:bigint):bigint;beginModB:=a-b*int(a/b);end;function EvenBig(n:Bigint):boolean;beginEvenBig:=ModB(n,2)=0;end;function ... isPrime(n:longint):boolean;var i,j:longint;beginisPrime:=true;i:=1;j:=round(sqrt(n));{mang a chua cac so nguyen to da sap xep tang dan}
whi...
... Sub mnutoan_Click() Frmtoan.Show frmchinh.Hide End Sub Private Sub mnuvan_Click() frmvanhoc.Show frmchinh.Hide THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN
8 End Sub Private Sub mnuve_Click() ... = 0 dem = 0 If Dir(App.Path & "\csdl \toan. txt") = "" Then tn = 1 Exit Sub End If Open App.Path & "\csdl \toan. txt" For Input As 1 cdr = 0 Do Until