Нужно составить программу с предусловием и постусловием! составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
На бейсике Dim a As String, n As Integer n = 0 Do ' Вечный цикл, пока не введут точку Print "Введите букву"; Input a If (a = "O") Or (a = "О") Then n = n + 1 ' Если ввели рус. или англ. О, то увеличиваем счетчик If a = "." Then Exit Do ' Если ввели точку, выскакиваем из цикла Loop Print n ' Выдаем количество введенных букв О End
Dim a As String, n As Integer
n = 0
Do ' Вечный цикл, пока не введут точку
Print "Введите букву";
Input a
If (a = "O") Or (a = "О") Then n = n + 1
' Если ввели рус. или англ. О, то увеличиваем счетчик
If a = "." Then Exit Do ' Если ввели точку, выскакиваем из цикла
Loop
Print n ' Выдаем количество введенных букв О
End