Сроооочно!!!!!!!!Составить на паскале    Сроооочно!!!!!!!!Составить на паскале программу решения уравнения для любых значений а и в.
ax+b=0
a=o?
b=0?
a=b=0?
a не равно нулю и в не равно нулю?

var a,b:real;begin write(' введите параметры уравнения ax+b=0  a и b');read(a,b);if (a=0) and (b=0) then write('уравнение имеет бесконечно много решений ');if (a=0) and (b<>0) then write('уравнение не имеет решений');if (a<>0) then write(' уравнение имеет один корень', -b/a);end.