Вмассиве хранится информация о численности книг в каждом из 35 разде-лов библиотеки. выяснить, верно ли, что общее число книг в библиотеке есть шестизначное число.сделайте в паскале​

Var   a,b,c,d,x1,x2: double; begin   write('введите коэффициенты квадратного уравнения а в с: ');   read(a,b,c);   if a=0 then       writeln('а не может равняться нулю: уравнение не будет квадратным')   else begin       d: =sqr(b)-4*a*c;       if d< 0 then writeln('нет корней')       else           if d=0 then writeln('x=',-b/(2*a))           else begin               d: =sqrt(d);               x1: =(-b-d)/(2*a); x2: =(-b+d)/(2*a);               writeln('x1=',x1,', x2=',x2)           end   end end. тестовое решение: введите коэффициенты квадратного уравнения а в с: 2 -5 3 x1=1, x2=1.5

Var a,b,c,d,x1,x2: double; begin write('введите коэффициенты квадратного уравнения а в с: '); read(a,b,c); if a=0 then writeln('а не может равняться нулю: уравнение не будет квадратным') else begin d: =sqr(b)-4*a*c; if d< 0 then writeln('нет корней') else if d=0 then writeln('x=',-b/(2*a)) else begin d: =sqrt(d); x1: =(-b-d)/(2*a); x2: =(-b+d)/(2*a); writeln('x1=',x1,', x2=',x2) end end end. тестовое решение: введите коэффициенты квадратного уравнения а в с: 2 -5 3 x1=1, x2=1.5 ответ у модератора совершенно верен.