Помогите плз решить задачи в qbasic1.Даны два действительных числа A и B. Вывести первое...

Question

Помогите плз решить задачи в qbasic
1.Даны два действительных числа A и B. Вывести первое число, если оно больше второго, и оба числа, если это не так.
2.Даны два действительных числа A и B . Заменить первое число нулём, если оно меньше или равно второму, и оставить числа без изменения в противном случае.

Answer 1

1)
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<br>  A=O
END IF
PRINT A
PRINT B