Not(X) or not(X or Y) or not(Y and not(X and Y))
Not (X) or not (X or Y) or not(Y) or not(X and Y)
Not (X) or (not(X) and not(Y)) or (not(Y) or not(X and Y))
Not (X) or (not(X) and not(Y)) or (not(Y) or not(X) or not(Y))
not(Y) or not(X)
Поскольку язык не указан, отвечающий вправе использовать любой. В данном случае выбран VBA из состава Microsoft Office 2003 (реализация в среде Excel). Некоторые дамы и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков VB/VBA/VBS недостойным упоминания. Теперь у них есть возможность написать что-то аналогичное на С++/Delphi и сравнить полученные коды с приведенным.
<em><u>Собственно, описание класса Class1:</u></em>
Private Const n = 12
Public Sub HowManySucc(ByRef kol As Integer)
Dim i As Integer, m1 As Integer, m As Integer
kol = 0
m1 = GetInt()
For i = 2 To n
m = GetInt()
If m > m1 Then kol = kol + 1
Next i
End Sub
Private Function GetInt() As Integer
Dim n As Integer
GetInt = Int(Val(InputBox("Введите целое число")))
End Function
<em><u>Вызов для тестирования:</u></em>
Sub aa()
Dim oC As New Class1, k As Integer
oC.HowManySucc k
MsgBox "Целых, больше первого: " + Str(k)
End Sub
А) 6
б) 5
в) В первый же: 20*100=2000 центнеров
# # Код на ruby 2.2.3p173
def zadanie(s)
s = s.downcase
count = 0
for i in 0..s.size
if s[i] == "b"
count = count - 1
elsif s[i] == "g"
count = count + 1
end
end
if count < 0
return "A BADDY"
elsif count > 0
return "GOOD"
else
return "NEUTRAL"
end
end
# # Примеры применения
p zadanie("Not a bad answer")
p zadanie("Not a good answer")
p zadanie("Not a Bag answer")