• помогите дорешать и поправить программу на паскале

    решение биквадратного уравнения

    program bikkiv;

    var

    procedure ur(var a,b,c,x1,x2);

    var

    D:real

    bedin

    D:=b*b-4*a*c;

    if D<0 then writeln('корней нет')

    else D=0 then x:=-b/(2+a)

    else

    begin

    x1:=-b-sqrt(D)/2a;

    x2:=-b+sqrt(D)/2a;

    end;

    end;

    begin

    readln(a1,b1,c1,t1,t2);

    ur(f1,b1,c1,t1,t2);

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years