1 2 3 4 5 6 | CLSINPUT "Vvedite stroku "; s$INPUT "Vvedite bukvu "; b$FOR i = 1 TO LEN(s$) IF MID$(s$, i, 1) = b$ THEN PRINT "Bukva "; b$; " stoit v stroke pod nomerom "; iNEXT i |
Тестирование выполнено в программе QB64 ( Скачать )