1-100 Arasindaki Sayilar icinde Kac Adet 9 Oldugunu Bulan Program

FOR sayi = 1 TO 100
ON = sayi / 10 : BIR = sayi MOD 10
IF ON = 9 THEN X=X+1 : PRINT sayi
IF BIR = 9 THEN X=X+1 : PRINT sayi
NEXT sayi
PRINT "TOPLAM= " ; X