Так как Чертёжник вернулся в исходную точку, изменения по обеим осям координат равны 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.
1.
а=2*а-в=3*2-6=0
в=а+22=0+22=22
<u>Ответ- А=0 В=22</u>
2.
а=2*а-в=3*2-5=1
в= (-1)^2=1
<u>Ответ- А=1 В=1</u>
3.
с=а+в=3+6=9
а=2*в-с=6*2-9=3
в=а+с=3+9=12
<u>Ответ- А=3 В=12</u>
4.
y=x*x=2*2=4
y=y*y=4*4=16
x=y*x=16*2=32
s=x+y=32+16=48
<u>Ответ- x=32 y=16 s=48</u>
<em>После того как переменной присвоили новое значение считается переменная с этим значением, старое значение ни как не учитывается</em>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
<u>Пример</u>
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
<u>Замечание:</u> вводить только натуральные числа!