Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Asal Sayı Asal mı Değil mi
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
makro fonksiyonu ile bulabilirsin.
Function AsalSayi(Sayi As Integer) As Boolean
'makro: Mesut Akcan
'22/2/2017
Dim n As Integer
AsalSayi = False
If Sayi Mod 2 = 0 Or Sayi < 2 Then
Exit Function
Else
For n = 3 To Sqr(Sayi) Step 2
If Sayi Mod n = 0 Then
Exit Function
End If
Next
End If
AsalSayi = True
End Function
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
