Question

Составить программу решения линейного уравнения ax + b = 0, где а не равно 0.

Answer 1

Program n1;
var a,b: real;
begin
writeln('программа для решения уравнения вида y=ax+b');
write('a=');
readln(a);
write('b=');
readln(b);
writeln('введенное уравнение: ',a,'x+(',b,')=0');
write('x=',-b/a);
end.