10 REM p2

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM Input 3 int
50 DIM A, B, C
60 DIM D, E, F
70 DIM G, H, I
80 DIM J, K, L
100 PRINT "Input 3 int:"
110 INPUT A, B, C
200 REM 182.1.1
210 D = A + 1
220 PRINT "1. " D
230 REM 182.2.2
240 D = A + 1: E = B + 1: F = D * E
250 PRINT "2. " F
260 REM 186.1.3 Модуль числа
270 D = A
280 IF D < 0 THEN D = -D
290 PRINT "3." D
300 REM 186.2.4 Максимум из двух чисел
310 D = A
320 IF D < B THEN D = B
330 PRINT "4. Максимум " D
340 REM 186.3.5
350 D = A: E = B
360 IF D > E THEN D = 1 ELSE E = 1
370 PRINT "5. " D E
380 REM 198.1.6 Знак числа - sign x
390 D = 0
400 IF A < 0 THEN D = -1
410 IF A > 0 THEN D = 1
420 PRINT "6. sign = " D
430 REM 199.3.7
440 D = A: E = B
450 IF A > B THEN D = B: E = A
460 PRINT "7. " D E
470 REM 200.5.8
480 IF A = 2 THEN PRINT "8. неудовлетворительно"
490 IF A = 3 THEN PRINT "8. удовлетворительно"
500 IF A = 4 THEN PRINT "8. хорошо"
510 IF A = 5 THEN PRINT "8. отлично"
520 IF A < 2 OR A > 5 THEN PRINT "8. нет такой оценки"
530 REM 207.1.9 Максимум из трёх чисел
540 D = A
550 IF B > A THEN D = B
560 IF C > D THEN D = C
570 PRINT "9. Максимум из трёх чисел " D
580 REM 210.4.10 Алгоритм Евклида
590 D = INT (A): E = INT (B): F = INT (C)
600 IF D < 0 THEN D = -D
610 IF E < 0 THEN E = -E
620 IF F < 0 THEN F = -F
630 G = D: H = E: I = F
640 IF G < 1 THEN G = 1
650 IF H < 1 THEN H = 1
660 IF I < 1 THEN I = 1
670 J = G: K = H: L = I
680 IF J > 30000 THEN J = 1
690 IF K > 30000 THEN K = 1
700 IF L > 30000 THEN L = 1
710 IF K > J THEN K = K - J
720 IF J > K THEN J = J - K
730 IF J <> K THEN 710
740 PRINT "10. НОД" J
750 REM 210.4.11
760 IF L > J THEN L = L - J
770 IF J > L THEN J = J - L
780 IF J <> L THEN 760
790 PRINT "11. НОД" J
800 REM 210.4.12
810 J = INT (A + B): K = INT (A - B): L = INT (A * B)
820 IF J < 0 THEN J = -J
830 IF K < 0 THEN K = -K
840 IF L < 0 THEN L = -L
850 IF J < 1 THEN J = 1
860 IF K < 1 THEN K = 1
870 IF L < 1 THEN L = 1
880 IF J > 30000 THEN J = 1
890 IF K > 30000 THEN K = 1
900 IF L > 30000 THEN L = 1
910 IF K > J THEN K = K - J
920 IF J > K THEN J = J - K
930 IF J <> K THEN 910
940 IF L > J THEN L = L - J
950 IF J > L THEN J = J - L
960 IF J <> L THEN 940
970 PRINT "12. НОД" J
980 END