Заменить в строке введенной с клавиатуры все буква "а" на "о"

code: #basic
word1$ = ""
INPUT "Type a string"; word1$
FOR i = 1 TO Len(word1$)
    IF UCASE$(MID$(word1$, i, 1)) = "A" THEN MID$(word1$, i, 1) = "O"
NEXT
PRINT word1$

автор: Vovan-VE

Поделиться:

Похожие статьи: