Fibonacci Serisi

5 REM KLAVYEDEN GİRİLEN TERİM SAYINA GÖRE FİBONACCİ SERİSİ ' NİN İLK N TERİMİNİ BULUP EKRANA YAZAN PROGRAM
10 CLS : PRINT "Fibonacci Serisi"
20 INPUT "Terim sayısı :  ", N
30 T1=1: T2=1 : PRINT : PRINT T1,T2
40 FOR I=1 TO N-2
50 T3=T1+T2 : PRINT T3, : T1=T2 :T2=T3
60 NEXT I
70 END

BASAMAKLARININ TOPLAMI, BASAMAK SAYISINA EŞİT OLAN 100-999 ARASINDAKİ TAMSAYILARI BULAN PROGRAM

10 REM 3 HANELİ TAM SAYILAR
20 CLS : PRINT "TAMSAYILAR:" : PRINT "-----------"
30 FOR A = 1 TO 9
40 FOR B = 0 TO 9
50 FOR K = 0 TO 9
60 IF A +B + K = 3 THEN PRINT 100 * A + 10 * B + K
70 NEXT K, B, A
80 END