Sub Z()
Dim a As Integer
a = InputBox("1")
Dim b As Integer
b = InputBox("2")
If Math.Abs(a) > Math.Abs(b) Then a = a / 5
End Sub<span>
</span>
ужно каждой букве русского алфавита задать номер от 0 до 31. Максимальный номер (31) можно представить как двоичное число 31 =11111. Так как номеров больших 31 нет, то для кодирования русских букв достаточно пятизначного двоичного числа. Дальше необходимо разбить цепочку - шифр на группы из пяти знаков справа налево.
01111 = 15 - П
10011 = 19 - У
11000 = 24 - Ш
10100 = 10 - К
01000 = 8 - И
01101 = 13 - Н.
1). Намалювати круглий тулуб.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.
Формула:
=ЕСЛИ(D122+E122+F122+G122=20;"сдал на отлично";ЕСЛИ(И(D122>3;E122>3;F122>3;G122>2);"сдал на хорошо и отлично";ЕСЛИ(И(D122>2;E122>2;F122>2;G122>2);"сдал";ЕСЛИ(И(D122+E122+F122+G122=8);"к отчислению";"не сдал"))))