Question

составьте программу решения линейного уравнения.Коэффициенты a,b вводит с клавиатуры. На экране Выводится информация о значении корня линейного уравнения

Answer 1

var

 a,b:real;

begin

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

 if b > 0 then writeln(a,'x+',b,'=0')

   else

     writeln(a,'x',b,'=0');

 writeln('x=', (-b)/a);

end.