Question

Напишите программу решения уравнения ax + b = 0, где a и b — заданные действительные числа, любое из которых может равняться нулю. Ответ выведите с точностью до тысячных.
В отчет включить текст программ, реакцию ЭВМ.

Answer 1

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

begin

 var (a, b) := ReadReal2('Введите коэффициенты a и b:');

 Write('Корень уравнения равен ', -b / a:0:3)

end.