Написать программу решения уравнения ax2+bx=0 для произвольных а и b. В паскале , срочно нужно ! Заранее спасибо))
Ответы
Ответ дал:
0
var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x);
end.
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x);
end.
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад