Нужно составить программу с предусловием и постусловием!Составить программу к.т....

Question

Нужно составить программу с предусловием и постусловием!
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".

Answer 1

На бейсике
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

Comments

забыла написать, в паскале нужно

---

Увы, я Паскаль плохо знаю, так что переводи сама. И еще, я не заметил, что надо с предусловием и постусловием. Это просто.

---

С предусловием пишешь Do While a <> "."

---

А с постусловием repeat ... until a = "."

---

А с предусловием на паскале будет while a <> "." do begin ... end;

---

Обрати внимание, что в условии у меня две буквы О - одна русская, другая английская, хотя выглядят они одинаково. Если бы была какая-нибудь J, то все было бы однозначно.