Предмет: Информатика,
автор: Irina19996
составить программу квадратного уровнения
Ответы
Автор ответа:
0
var a,b,c,D,x1,x2:real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if D<0 then Writeln('Только комплексные корни')
else
begin
d:=sqrt(d);
x1:=(-b+d)/(2*a);
x2:=(-b-d)/(2*a);
WriteLn('x1=',x1);
WriteLn('x2=',x2);
end;
end.
Похожие вопросы
Предмет: Биология,
автор: marinka5413
Предмет: Информатика,
автор: alsuihsanova2002
Предмет: Українська мова,
автор: gghnaxuyiduhjhhg
Предмет: Алгебра,
автор: dem4ik