Предмет: Информатика,
автор: julia2138
Нужно составить программу с предусловием и постусловием!
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
Ответы
Автор ответа:
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
Автор ответа:
0
Увы, я Паскаль плохо знаю, так что переводи сама. И еще, я не заметил, что надо с предусловием и постусловием. Это просто.
Автор ответа:
0
А с предусловием на паскале будет while a <> "." do begin ... end;
Автор ответа:
0
Обрати внимание, что в условии у меня две буквы О - одна русская, другая английская, хотя выглядят они одинаково. Если бы была какая-нибудь J, то все было бы однозначно.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Українська мова,
автор: slomakina00
Предмет: История,
автор: kriklivenkoelena6
Предмет: Математика,
автор: Данилафокс