Ответ:
этот фрукт кисло-сладкий и спелый
Формула : A-->B = отрицаниеA + B ( + 'это логическое сложение ∨)
X^2≤ 121 + X> X+5 = 1 - истина
X=11 : 11≤121 + (11> 16) =1 - верно!
X=12: 12≤121 + (12> 16) = 1 - неверно!
Ответ: X=11
Program PR1;
uses crt;
var skv,skr:real;
a,r:integer;
Begin
clrscr;
writeln('Введите сторону квадрата');
readln(a);
writeln('Введите радиус круга');
readln(r);
skv:=sqr(a);
skr:=pi*sqr(r);
if skv>skr then writeln('Площадь квадрата >')
else writeln('Площадь круга>');
end.
DECLARE FUNCTION f# (x AS DOUBLE)
DECLARE FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
'Main program
DIM eps AS DOUBLE, n AS LONG, s AS DOUBLE, s1 AS DOUBLE
DIM a AS DOUBLE, b AS DOUBLE
CLS
a = 0: b = 1: eps = .001
n = 100
s = Integ#(a, b, 10#)
DO
s1 = s
s = Integ#(a, b, n)
n = n * 2
LOOP UNTIL ABS(s - s1) <= eps
PRINT s
END
FUNCTION f# (x AS DOUBLE)
f# = x ^ 3 * EXP(x ^ 2)
END FUNCTION
FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
DIM h AS DOUBLE, xb AS DOUBLE, x AS DOUBLE
DIM s AS DOUBLE, i AS INTEGER
h = (b - a) / n
s = 0
xb = a
FOR i = 0 TO n - 1
x = xb + i * h
s = s + f(x) * h
NEXT i
Integ# = s
END FUNCTION
<em><u>Результат выполнения программы:</u></em>
.4991509793572241
<em>Погрешность не превышает 0.001 при контрольном значении, равном 0.5</em>
Так как Чертёжник вернулся в исходную точку, изменения по обеим осям координат равны 0. Обозначим искомое смещение по оси абсцисс за a, по оси ординат - за b. Теперь можно записать систему уравнений для обеих осей:
Δx = 4 * (a + 1 + 1) - 4 = 0
Δy = 4 * (b + 3 - 2) - 12 = 0
4 * a = -4
4 * b = 8
a = -1
b = 2
Ответ: 4.