Написать программу, которая решает уравнение ax+b = 0 (Паскаль)использовать эти ур. в...

Question

Написать программу, которая решает уравнение ax+b = 0 (Паскаль)
использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0

Answer 1

Var a,b,x:real;
begin
writeln('Введите значение a');
readln(a);
writeln('Введите значение b');
readln(b);
x:=((-1)*b)/a;
if (a=0) and (b=0)then writeln('х-любое число')
else if (a=0) and (b<>0) then writeln('Нет корней')
else writeln('x=',x);
end.