Ответы
Ответ дал:
0
var a, b, c, D, x1, x2, k: real;
begin
writeln('Введите A, B, C');
readln(a,b,c);
D:=sqr(b)-4*a*c;
k:=sqrt(D);
writeln('Дискриминант:', D);
if k>0 then x1:=(-b+k)/(2*a);
begin x2:=(-b-k)/(2*a); end;
if k=0 then x1:=-b/(2*a);
if k<0 then writeln('Корней нет');
writeln('Первый корень:', x1, ' Второй корень:', x2);
end.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад