Bai toan ve nghiem nguyen

Ngày tải lên: 15/09/2013, 14:10

... 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...

Ngày tải lên: 07/09/2012, 10:56

Ngày tải lên: 20/01/2014, 03:20

... Trắc Nghiệm Tổng Hợp Private Sub mnutoan_Click()Frmtoan.Showfrmchinh.HideEnd SubPrivate Sub mnuvan_Click()frmvanhoc.Showfrmchinh.HideEnd SubPrivate Sub mnuve_Click()Dim aa = Shell("paint.exe", ... Integersocau = 15tn = 0dem = 0If Dir(App.Path & "\csdl \toan. txt") = "" Thentn = 1Exit SubEnd IfOpen App.Path & "\csdl \toan. txt" For Input As 1cdr...

Ngày tải lên: 06/09/2012, 11:05

... 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

Ngày tải lên: 27/04/2013, 22:42

Ngày tải lên: 01/06/2013, 08:46

Ngày tải lên: 18/08/2013, 16:10

Ngày tải lên: 22/10/2013, 23:20

Ngày tải lên: 21/12/2013, 20:21