dim a as integer
a=inputbox("sayı giriniz=")
if a=2 then
msgbox("asal sayıdır")
if (a/3) and (a/5) and (a/7) then
msgbox("asal sayı değildir")
else
msgbox("asal sayıdır")
end if
__________________
ReadBull.net sizlere daha iyi hizmet sunmak için çerezleri kullanıyor. ReadBull.net'i kullanarak çerezleri kullanmamızı kabul etmiş olacaksınız.
Detaylı bilgi almak için Gizlilik ve Çerez Politikası metnimizi inceleyebilirsiniz.