Girilen sayının mükemmel sayı olup olmadığını bulan program

Dikkat: Bu yazının yazılma tarihinin üzerinden en az 60 gün geçmiş. İçerisindeki bilgiler güncelliğini yitirmiş olabilir. Yorumları ve güncellemeleri göz önünde bulundurarak yazıyı takip ediniz.
CLS
 PRINT "GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM"
 F = 0
 INPUT " SAYI ="; N
 FOR I = 2 TO N
  K = N / I
  IF K = INT(K) THEN
   F = F + K
  END IF
 NEXT I
 IF F = N THEN
  PRINT " MUKEMMEL SAYI"
 ELSE
  PRINT "MUKEMMEL SAYI DEGIL"
 END IF

Örnek Çıktı :

GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM
SAYI =? 50
MUKEMMEL SAYI DEGIL

Yorumlar

Üye Resmi gamze
2 Nisan Çarşamba ´08 15:02
ya bana öğretmen performans ödevi olarak verdi buradaki bilgiler çoq kısa anlayacığınız aradığımı bulamadım
Üye Resmi elif kaya
21 Aralık Pazar ´08 15:24
bunu bu istedin ben buldum sende yaz şu adrese gir       (mkemmel sal  rnekler)
18 Ocak Pazartesi ´10 22:19
yha bu programın visual basic kodlarını nerden bulablrm acil..!
Üye Resmi emrah çevik
20 Mayıs Perşembe ´10 09:19
For i = 2 To 10000
            sayac = 0
            For j = 1 To i - 1
                If i Mod j = 0 Then
                    sayac += j
                End If
            Next
            If sayac = i Then
                ListBox1.Items.Add(i.ToString())
            End If
        Next
Üye Resmi oylum kar
4 Ocak Salı ´11 20:22
bu ne ya  çok kısa.hiç bir şey yazmamışsınız.o bilgimi
güya.hahaha hihihi hohoho.bunun gibi bilgi olmaz olsun.tüüüüü
bu siteye .bende bu bir site  siteyi iyi bir site sanırdım.halbuki
berbat bir siteymiş.bir tek <50 mükemmel sayı değildir ve
bir formul verilmiş>bu ne ya.
Üye Resmi cem
9 Şubat Perşembe ´12 10:15
la bu nasıl bir program admin bana ver siteyi ben yönetim kralını yazim ihtiyacı olan insanlara programları kısacası bırak sen   :-D    :-D  ayrıca düşük fiyata site yapılır isteyenler burdan haber edebilir.
Üye Resmi mahmut KILIÇ
19 Mart Perşembe ´15 16:28
arkadaşlar bana javascript dilinde 1 ile 5000 arasında ki mükemmel sayıları hesaplayan programın kodları lazım yardımcı olabilirseniz çok sevinirim .
Yeni Yorum *
İletişim Bilgileri
*
*
E-Posta adresiniz gösterilmeyecektir.
(unut)
Güvenlik Kodu *

Gönderiliyor