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