SAMOGLASNICI U REČENICI
 

Broji koliko samoglasnika ima u rečenici koju ste upisali.

 

CLS
INPUT "Rečenica"; rec$
temp$ = "aeiou"
d = LEN(rec$)

FOR i = 1 TO d
     slovo$ = MID$(rec$, i, 1)
     p = INSTR(temp$, slovo$)
    IF p <> 0 THEN
        suma = suma + 1
    END IF
NEXT i
PRINT "Broj samoglasnika je:", suma