zadach37.BAS

{* Задача37 *}

REM basic

' Дана последовательность символов. Заменить все буквы А на В.


10   INPUT A$
20   B=LEN(A$)
30   For  I=1   To   B
40   С$=Mid$(A$,I,1)
50   If C$=”A”   Then   C$=”6”
60   PRINT   C$
70   Next    I
80   End