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