Еще одно задание за еще большее вознаграждение. Если можете сделать, делайте максимально качественно. Програмиравние на Паскаль.

+ 0 -

Zhjckfd12

19 окт. 2014 г., 12:16:56 (9 лет назад)

Program KVUR;
uses crt;
Var
  A, B, C, D, X1, X2 : Real;
begin
  writeln ('Введите коэффициенты квадратного уравнения A, B и C ');
  write ('A = ');  readln(a);
  write ('B = ');  readln(b);
  write ('C = ');  readln(c);
  if A=0 then
    if B=0 then
      if C=0 then writeln('Все три коэфициента равны нулю! X - любое число')
        else writeln('Корней нет! ')
      else
        begin
          X1:=-C/B;
          writeln('X=',X1);
        end
    else
      begin
        D:=B*B-4*A*C;
        if D<0 then writeln ('Корней нет!')
          else
            begin
              X1:=(-B+sqrt(D))/2/A;
              X2:=(-B-sqrt(D))/2/A;
              writeln ('X1=', X1:0:2, ' X2=',X2:0:2);
            end;
      end;
end.

Проверено на PascalABC - всё работает