1 2 3 4 5 | CLSLINE INPUT "Vvedite slovo :", SL$INPUT "Nomer simvola :", nPRINT "Bukv v slove : "; LEN(SL$)IF n <= LEN(SL$) AND n > 0 THEN PRINT "Bukva"; MID$(SL$, n, 1) |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | CLSLINE INPUT "Vvedite slovo :", SL$INPUT "Nomer simvola :", nPRINT "Bukv v slove : "; LEN(SL$)IF n <= LEN(SL$) AND n > 0 THEN PRINT "Bukva"; MID$(SL$, n, 1) |
Тестирование выполнено в программе QB64 ( Скачать )