zadacht16.BAS

{* Задача16 *}

REM basic

' В слове A$ все буквы "и" заменить на букву "е"


CLS
A$ = "пиримина"
For i = 1 To LEN(A$)
    tmp$ = Mid$(A$, i, 1)
        If tmp$ = "и" Then tmp$ = "е"
    B$ = B$ + tmp$
Next i
PRINT B$
End