1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
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ı :
1 2 3 |
GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM SAYI =? 50 MUKEMMEL SAYI DEGIL |