Плз решить в qbasic 1.даны два действительных числа a и b. вывести первое число, если оно больше второго, и оба числа, если это не так. 2.даны два действительных числа a и b . заменить первое число нулём, если оно меньше или равно второму, и оставить числа без изменения в противном случае.
CLS
DIM A AS REAL
DIM B AS REAL
INPUT A
INPUT B
IF A>B THEN
PRINT A
ELSE
PRINT A
PRINT B
END IF
2)
CLS
DIM A AS REAL
DIM B AS REAL
IF A<=B THEN
A=O
END IF
PRINT A
PRINT B