|
zadach185.BAS |
|
{* Задача185 *}REM basic ' Ввести два числа, разделить первое на второе,' вывести результат. Если второе число равно 0, то сообщить об этом' и повторить ввод.CLS
On Error GoTo m1
m2: INPUT x, y
PRINT x / y
End
m1:
PRINT "Повторите ввод"
GoTo m2
|