1 2 3 4 5 6 7 8 9 | LINE INPUT "введите текст"; t$ t = INSTR( 1 , t$, "a") WHILE t <> 0 k = k + 1 t = INSTR(t + 1 , t$, "a") WEND PRINT "в тексте"; k; "букв а" END |
1 2 3 4 5 6 7 8 9 | LINE INPUT "введите текст"; t$ t = INSTR( 1 , t$, "a") WHILE t <> 0 k = k + 1 t = INSTR(t + 1 , t$, "a") WEND PRINT "в тексте"; k; "букв а" END |