zadach334.BAS

{* Задача334 *}

REM basic

' В символьной переменной F$ записана строка символов. Из задоной строки получить новую, заменить в ней все "1" на символ "А". Распечатать полученную строку.


CLS
INPUT "Введите строку: ", F$
 
For I = 1 To LEN(F$)
  If Mid$(F$, I, 1) = "1" Then
    NF$ = NF$ + "A"
  Else
    NF$ = NF$ + Mid$(F$, I, 1)
  End If
Next I
PRINT "Новая строка: " ; NF$
End