Подсчитать количество шипящих букв в слове- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Slovo As String, i As Integer, k As Integer
Slovo = "Щучкин"
Slovo = UCase(Slovo)
k = 0
For i = 1 To Len(Slovo)
    Select Case Mid$(Slovo, i, 1)
        Case "Ж", "Ч", "Ш", "Щ"
            k = k + 1
        Case Else
    End Select
Next i
Print "Число шипящих:"; k
End

Похожие записи/страницы:

Leave a Comment