zadacht9.BAS

{* Задача9 *}

REM basic

' Определить сколько в переменной A$="АВРОРА" русских
' 'букв "a" и "р".


CLS
A$ = "АВРОРА"
For i = 1 To LEN(A$)
        tmp$ = Mid$(A$, i, 1)
        If tmp$ = "А" Or tmp$ = "Р" Then k = k + 1
Next i
PRINT k
End