Дано уравнение ax2+bx+c=0 найти решение этого уравнения или сообщить, что решения не существует

элина332 элина332    3   19.09.2019 03:30    1

Ответы
bodajkunasta bodajkunasta  08.10.2020 01:21
√D=b2-4ac
x1=-b+√D/2a
x2= b+√D/2a
ПОКАЗАТЬ ОТВЕТЫ
usan2005 usan2005  08.10.2020 01:21
Var
   a,b,c,d:double;
Begin
   write('a = ');
   read(a);
   write('b = ');
   read(b);
   write('c = ');
   read(c);
   d:=sqrt(b*b-4*a*c);
   if d > 0 then begin
      writeln('x1 = ', (-b+d)/(2*a));
      writeln('x2 = ', (-b-d)/(2*a));
      end
   else
      if d = 0 then
         writeln('x = ', -b/(2*a))
      else
         write('Решений нет');
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика