1 dk okuma
Girilen sayının mükemmel sayı olup olmadığını bulan program
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
İlgili Yazılar
- 2 min read6 yüzlü bir zarın atılması deneyinin simülasyonu
- 5 min readPHP'de PEAR MDB2 ile Güvenli ve Esnek Veritabanı İşlemleri (SQL Injection Önlemleri)
- 1 min readUzun Bir Aradan Sonra Yeni Doküman: PEAR MDB2 ile Veritabanı İşlemleri
- 2 min readN'nin M'li kombinasyonunu bulan program
- 6 min readPHP'de Hata Ayıklama (Debug) Teknikleri
- 2 min readPHP'de döngüler
Paylaş