1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
CLS PRINT "GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM" INPUT "SAYI = ", N IF N < 1 THEN PRINT "ASAL DEGIL" END END IF IF N = 1 THEN PRINT "ASAL DEGIL" END END IF IF N = 2 THEN PRINT "ASAL" END END IF A = 1 ISLEM: A = A + 1 IF (INT(N / A)) * A = N THEN PRINT "ASAL DEGIL" END END IF IF A = (N - 1) THEN PRINT "ASAL" END END IF GOTO ISLEM |
Örnek Çıktı :
1 2 3 |
GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM SAYI = 15 ASAL DEGIL |