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

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

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!