Почему-то код постоянно плывёт, поэтому я прикрепил решение скрином.
Cls
Input x
Y=(2*x+3)^2*(x-5)
Print y
Первая цифра в записи будет 3.
Изменение цифр происходит так:
2^0 = 1
2^1 = 2
2^2 = 4
2^3 = 8
2^4 = 10
2^5 = 20
2^6 = 40
2^7 = 80
и так далее.
Степень 1024 кратна 4-м, поэтому число будет начинаться с 1. Следующая степень 1025 будет начинаться с 2.
А их сумма, соответственно, 3.
Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
Если решать в общем случае, то нужно считать отдельно суммарные смещения других команд, и брать их с обратным знаком.
x = - (-2 + 2) = 0
y = - (-1 + 1) = 0
Однако, тут можно было и не считать, и так видно что смещения компенсируются, поэтому чертёжик и так вернётся к начальной точке, даже если никакой команды 1 не делать.
Но, если уж сказано сделать, то тогда делаем команду с такими вот нулевыми смещениями.
Ответ: Сместиться на (0, 0)