Сроооочно!!!!!!!!Составить на паскале Сроооочно!!!!!!!!Составить на паскале программу решения уравнения для любых значений а и в. ax+b=0 a=o? b=0? a=b=0? a не равно нулю и в не равно нулю?
Answers & Comments
infor5
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.
Answers & Comments
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.