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

July 2022 1 0 Report

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

Answers & Comments

Удачник66

Verified answer

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

1 votes Thanks 1

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

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

Удачник66 С предусловием пишешь Do While a <> "."

Удачник66 А с постусловием repeat ... until a = "."

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

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

Answers & Comments

Verified answer

pozhalujsta pomogite izvestno chto grafiki funkcij y3x2px 6 i y2x2 x 15 im

vagon dvizhetsya s nekotoroj skorostyu stalkivaetsya s nepodvizhnym vagonom takoj zh

tretij zakon nyutona impuls zakon sohraneniya impulsa obyasnenie reaktivnogo

рекомендуемые вопросы

Helpful Links

Helpful Social