{* Задача157 *}

REM basic

'
'

Решить уравнение вида ax+b=0,
' т.е. если а ≠0, то x=
' , если а=0 и b=0, то x
' – любое действительное число, т.е.
' решений бесконечно много, если а=0 и b≠0, то решений нет.

CLS
INPUT "Введите а"; а
INPUT "Введите b"; b
If a0 Then 
x=–b/a
PRINT "РЕШЕНИЕ"; x
Else 
If b=0 Then 
PRINT "х – любое действительное число"
Else 
PRINT "решений нет"
End If
End