Question

Написать программу паскаль, для решения уравнения a*x+b=0 . Коэффициенты a и b вводятся пользователем во время работы программы. В программе необходимо предусмотреть проверку коэффициентов a и b.

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadReal2('Введите значения a и b:');

 if a = 0 then

   if b = 0 then

     Println('Решений бесконечно много')

   else

     Println('Решений нет')

 else

   Println('x =', -b / a)

end.