REM Замена малых русских букв большими DECLARE SUB UP (A$) PRINT "Введите строку, содержащую малые и большие буквы" INPUT "", A$ UP A$ PRINT A$ END SUB UP (A$) FOR j = 1 TO LEN(A$) SELECT CASE MID$(A$, j, 1) CASE "a" TO "z": MID$(A$, j, 1) = CHR$(ASC(MID$(A$, j, 1)) - 32) CASE "а" TO "п": MID$(A$, j, 1) = CHR$(ASC(MID$(A$, j, 1)) - 32) CASE "р" TO "я": MID$(A$, j, 1) = CHR$(ASC(MID$(A$, j, 1)) - 80) CASE "ё": MID$(A$, j, 1) = "Ё" END SELECT NEXT j END SUB