В какой строке допущена ошибка в программке, написанной на языке PascalABC?

В какой строке допущена ошибка в программке, написанной на языке 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 amp;gt;= 0 then begin 8) if d amp;lt;amp;gt; 0 then begin 9) x1 := (b + sqrt(d)) / (2 * a); 10) x2 := (-b + sqrt(d)) / (2 * a); 11) writeln(39;x1 = 39;, x1:4:2, 39;, х2 = 39;, х2:4:2); 12) end 13) else begin 14) x1 := -(b / 2 * a); 15) writeln (39;x = 39;, x1:4:2); 16) end; 17) end 18) else begin 19) writeln (39;Решений нет!39;); 20) end; 21) end. А) 5 б) 7 В)8 Г) 9

Задать свой вопрос
1 ответ

1) program KvadrUravn; ошибки нет

2) var; ошибка, после var точка с запятой не ставится

3) a, b, c, d, x1, x2: real; оплошности нет

4) begin; ошибка, после begin точка с запятой не ставится

5) readln (a, b, c); ошибки нет

6) d := b * b - 4 * a* c;ошибки нет

7) if d gt;= 0 then begin ошибки нет

8) if d lt;gt; 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. ошибки нет

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт