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
- 3 min readPHP Dosyanıza Resim veya Dosya Gömme Tekniği (Base64)
- 4 min readPHP'de verileri sayfa sayfa göstermek!
- 2 min readPHP'de döngüler
- 2 min readN'nin M'li kombinasyonunu bulan program
- 5 min readPHP'de PEAR MDB2 ile Güvenli ve Esnek Veritabanı İşlemleri (SQL Injection Önlemleri)
- 3 min readVi'ın mucizeleri ve ipuçları
Paylaş