При нажатии мышкой на внутреннею область квадрата происходит ошибка. из-за чего она возникает: "program8.pas(6) : ошибка времени выполнения: поток не выполняется; его нельзя приостановить."? как можно переделать программу? программа(pascalabc.net): uses graphabc; var a: real; procedure md(x, y, z: integer); begin if (x > 100) and (x < 200) and (y > 100) and (y < 200) then readln(a); end; begin onmousedown : = md; rectangle(100, 100, 200, 200); end.

127

133

Посмотреть ответы 2

Ответы на вопрос:

Amina5155

Информатика

4,5(60 оценок)

Вот например в таком варианте все работает. readln подразумевает ожидание потому и ошибка. и вообще в чем то? uses graphabc; var a: real; procedure md(x, y, z: integer); begin if (x > 100) and (x < 200) and (y > 100) and (y < 200) then println(x, y, z); end; begin onmousedown : = md; rectangle(100, 100, 200, 200); end.

Lika8911

Информатика

4,6(40 оценок)

X^2 +x +2 =14 x^2 +x -12 =0 решением этого уравнения являются : x1=3 x2= - 4 (не удовл усл - не может быть с/с с отрицательным основанием) итак, x=3. проверяем: 9 +3 +2 = 14 ответ: 3