Option Explicit

Rem p10
Rem Язык Visual Basic 5.0
Rem Основы программирования
Rem Ввод целых чисел
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim g As Integer, h As Integer, i As Integer
Dim j As Integer, k As Integer, l As Integer
Dim m As Single, n As Single, o As Single
Dim p As Single, q As Single, r As Single
Dim s As String
Private Sub C1_Click()
10 Cls
20 a = Fix(Val(T1)): b = Fix(Val(T2)): c = Fix(Val(T3))
30 d = a: e = b: f = c
40 If d = -32768 Or d = 0 Then d = 1
50 If e = -32768 Or e = 0 Then e = 1
60 If f = -32768 Or f = 0 Then f = 1
70 If d < 0 Then d = -d
80 If e < 0 Then e = -e
90 If f < 0 Then f = -f
100 Rem 60.2.1
110 Print "1. "; True; ", "; a > b And c <> 0; ", "; a Or b And Not c Mod 2 And a
120 Rem 61.2.2 Максимум из двух чисел
130 g = a
140 If g < b Then g = b
150 Print "2. Максимум "; g
160 Rem 63.1.3 Формула Герона
170 m = a: n = b: o = c
180 p = (m + n + o) / 2
190 q = p * (p - a) * (p - b) * (p - c)
200 If q < 0 Then q = 0
210 Print "3. Площадь треугольника "; Sqr(q)
220 Rem 71.2.4 Алгоритм Евклида
230 g = d: h = e
240 While g <> h
250 If g > h Then g = g - h Else h = h - g
260 Wend
270 Print "4. НОД "; g
280 Rem 145.1.5
290 g = d
300 h = g Mod 10
310 While g > 9
320 g = g \ 10
330 Wend
340 h = h + g
350 Print "5. Сумма "; h
360 Rem 145.2.6
370 g = d: h = 1
380 While g > 9
390 g = g \ 10: h = h + 1
400 Wend
410 Print "6. Количество цифр "; h
420 Rem 28.1.7 Число корней
430 g = 0
440 If a = 0 Then g = 1
450 If a > 0 Then g = 2
460 Print "7. Число корней "; g
470 Rem 29.2.8
480 s = "8. Такой отметки нет"
490 If a = 5 Then s = "8. отлично"
500 If a = 4 Then s = "8. хорошо"
510 If a = 3 Then s = "8. удовлетворительно"
520 If a = 2 Then s = "8. неудовлетворительно"
530 If a = 1 Then s = "8. плохо"
540 Print s
550 Rem 44.1.9 Модуль числа
560 g = a
570 If g = -32768 Then g = 0
580 If g < 0 Then g = -g
590 Print "9. Модуль числа "; g
600 Rem 46.3.10 Максимум из трёх чисел
610 g = a
620 If g < b Then g = b
630 If g < c Then g = c
640 Print "10. Максимум "; g
End Sub