Записать в общепринатой форме · (-b+sqrt(sqr(b)-4*a*c))/(2*a); · a/b*(c+-b)/b/c+1e-8; · 1е3+g/(x2-a/b)-abs(x1+sin(

1) формула нахождения дискриминанта и его корней

Var x, y: real;     i: integer; begin       for i : = 1000 downto 1 do       begin           if (i mod 2 = 0) then y : = -1 * i               else y : = i;           writeln('1/', i);           x : = x + 1 / y;       end;       writeln('> ', x); end.а вручную это пришлось бы минут 30 даже с калькулятором считать х_х

1) var a, b: real; begin       readln(a, b);     if (a > b) then writeln(a)     else         if (a < b) then writeln(b)         else             writeln('a = b'); end.2)var a, b, c: integer; begin      readln(a);       b : = a mod 100 div 10;       c : = a mod 10;       a : = a div 100;       write('a) ');     if (a > c) then writeln(a)    else        if (a < c) then writeln(c)        else            writeln('=');       write('b) ');     if (a > b) then writeln(a)    else        if (a < b) then writeln(b)        else            writeln('=');       write('c) ');     if (c > b) then writeln(c)    else        if (c < b) then writeln(b)        else            writeln('='); end.3 даже представить не могу, извините: )