Предмет: Информатика, автор: julia2138

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

Ответы

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

означено-особові
узагальнено-особові
безособові
неозначено-особові
Вопрос №3 ?
2 балла
Якого типу наведене речення: Чи приїдеш на літо?

узагальнено-особове
безособове
неозначено-особове
означено-особове
Вопрос №4 ?
2 балла
Яке з наведених речень є узагальнено-особовим?

Нам вічно треба небом жить.
Колеса глухо стукотять.
Ні, радості більшої не знаю, як та, щоб із тобою бути назавжди.
Не хвали в вічі, не гудь поза очі.
Вопрос №5 ?
2 балла
Яке з наведених речень є називним?

У колективі нічиєї межі не переореш.
Поріг батьківської хати.
На кожну голову приходить своя хуртовина.
Навчи мене своєї пісні-радості.
Вопрос №6 ?
2 балла
Безособовим є речення

В травні стихло навкруги.
Йшли не довго, не блукали.
На сіно грекам кинули верету.
Разом ходімо в майбутнє.
Завершить тест