zadach81.BAS

{* Задача81 *}

REM basic

' Компьютер должен "запросить" два числа (M и N), которые вводятся с клавиатуры. Произвести над этими числами одно из арифметических действий (сложение, вычитание, умножение, деление) - по выбору пользователя. Вывести результат на экран с пояснительным текстом.


10 { Простейшее меню - выбор из предлагаемых вариантов
}
20 CLS
30 INPUT "M ="; M: INPUT "N ="; N
40 PRINT "Что сделать с этими числами 1 +; 2 -; 3 *; 4 /."
50 INPUT I%
60 On I% GoTo 70, 90, 110, 130
70 PRINT M; "+"; N; "="; M + N
80 GoTo 150
90 PRINT M; "-"; N; "="; M - N
100 GoTo 150
110 PRINT M; "*"; N; "="; M * N
120 GoTo 150
130 If N  0 Then PRINT M; "/"; N; "="; M / N
140 If N = 0 Then PRINT "Делить на ноль нельзя."
150 End