Нужно составить программу с предусловием и постусловием!Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "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