Вкакой строчке допущена ошибка в программе, написанной на языке pascalabc? программа должна высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c. 1) program kvadruravn; 2) var; 3) a, b, c, d, x1, x2: real; 4) begin; 5) readln (a, b, c); 6) d : = b * b - 4 * a* c; 7) if d > = 0 then begin 8) if d < > 0 then begin 9) x1 : = (b + sqrt(d)) / (2 * a); 10) x2 : = (-b + sqrt(d)) / (2 * a); 11) writeln('x1 = ', x1: 4: 2, ', х2 = ', х2: 4: 2); 12) end 13) else begin 14) x1 : = -(b / 2 * a); 15) writeln ('x = ', x1: 4: 2); 16) end; 17) end 18) else begin 19) writeln ('решений нет! '); 20) end; 21) end. а) 5 б) 7 в)8 г) 9

ananaaaas11    1   29.06.2019 10:20    1