Сделать программу, которая считает указываемую букву в указанной строке и определяет её место- QBasic(Бейсик)

CLS
INPUT "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 "; i
NEXT i

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment