10 REM p182

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM Input 3 int
50 DIM A, B, C
60 DIM D, E, F
100 PRINT "Введите три целых числа:"
110 INPUT A, B, C
200 REM 182.1.1
210 PRINT "1. " A + 1
220 REM 186.1.2 Модуль числа
230 D = A
240 IF D < 0 THEN D = -D
250 PRINT "2." D
260 REM 186.2.3 Максимум из двух чисел
270 D = A
280 IF D < B THEN D = B
290 PRINT "3. " D
300 REM 186.3.4
310 D = A: E = B
320 IF A > B THEN D = 1 ELSE E = 1
330 PRINT "4. " D E
340 REM 190.1.5 Формула Герона
350 D = 1
360 IF A > 100 OR B > 100 OR C > 100 THEN D = 2
370 IF A < -100 OR B < -100 OR C < -100 THEN D = 2
380 IF D = 2 GOTO 440
390 D = (A + B + C) / 2
400 E = D * (D - A) * (D - B) * (D - C)
410 F = 0
420 IF E > 0 THEN F = SQR (E)
430 PRINT "5. Площадь треугольника" F
440 REM 198.1.6 Знак числа sign
450 D = 0
460 IF A > 0 THEN D = 1
470 IF A < 0 THEN D = -1
480 PRINT "6. Знак числа sign равен " D
490 REM 199.3.7 Упорядочение двух переменных
500 D = A: E = B
510 IF D > E THEN F = D: D = E: E = F
520 PRINT "7. " D E
530 REM 200.5.8
540 IF A < 2 OR A > 5 THEN PRINT "8. нет такой оценки"
550 IF A = 2 THEN PRINT "8. неудовлетворительно"
560 IF A = 3 THEN PRINT "8. удовлетворительно"
570 IF A = 4 THEN PRINT "8. хорошо"
580 IF A = 5 THEN PRINT "8. отлично"
590 END