Составить программу ** языке QBasic для решения уравнения ax+b=0

Question

Составить программу на языке QBasic для решения уравнения ax+b=0

Answer 1

CLS
INPUT "a=", a
INPUT "b=", b
IF a = 0 THEN
   IF b = 0 THEN
      PRINT "Resheniy beskonechno"
   ELSE
      PRINT "Resheniy net"
   END IF
ELSE
   PRINT "x="; b / a
END IF
END