Влотерее разыгрывалось 14 электрочайников, 9 блэндеров, 4 микроволновки и 2 телевизора. какое количество информации содержится в сообщении о том, какой приз получил участник

Ну, если я правильно понял суть задания, то:

osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду:   Ocenka()

Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:

 

Sub Ocenka()
Dim osh, oc As Byte
osh = InputBox("Введите количество ошибок")
If osh = 0 Then
oc = 5
ElseIf osh = 1 Then
oc = 4
ElseIf osh = 2 Then
oc = 3
ElseIf osh >= 3 Then
oc = 2
End If
MsgBox("Оценка ученика - " & oc)
End Sub

 

Ну впринципе все) Скрин програмки прилагается)

Треугольник существует, если a < (b+c), b < (a+c), c < (a + b)
Он равносторонний, если a=b=c
Он равнобедренный, если a=b!=c, a=c!=b, b=c!=a (!= всмысле не равно)
Иначе произвольный
Разве не очевидно?

Програмка на питоне: https://pastebin.com/raw/fKQqvfDb
Там я сначала проверяю, что треугольник существует, потом проверяю, что две его любые стороны равны. Если при этом ещё и сумма всех сторон делённая на 3 равна одной из них, то они все равны => он равносторонний. Иначе он равнобедренный. Если условие про равенство двух сторон не выполняется, то он - произвольный. Как упростить - не знаю.