Question

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

Answer 1

var

a,b,x:real;

begin

write('Введите a: ');  

readln(a);

write('Введите b: ');

readln(b);

x:=-b/a;

writeln('x = ',x:0:3);

end.