Var n,i:integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
writeln(i,' ',i*i,' ',i*i*i);
end.
Пример:
n = 7
1 1 1
2 4 8
3 9 27
4 16 64
5 25 125
6 36 216
7 49 343
Если для цвета выделено 5 бит - значит он должен быть в диапазоне от 0 до 31 (32 = 2^ 5), если 6 бит - от 0 до 63
Ответ: 1, 3, 8
7.
<span>v = 1 n = 24
v = n – v*4
</span>v = 24 – 1*4 = 24 - 4 = 20
v = 20 n = 24<span>
n = v*2 – n
n = 20*2 – 24 = 40 - 24 = 16
v = 20 n = 16</span>
8.
<span>а = 6 b = 2
b = a/2*b
</span>b = 6/2*2 = 3 * 2 = 6
a = 6 b = 6<span>
a = 2*а + 3*b
a = 2*6 + 3*6 = 12 + 18 = 30
a = 30 b = 6
9.
<span>а = 10 b = 110
b = 110 + b/a
</span>b = 110 + 110/10= 110 + 11 = 121
a = 10 b = 121<span>
a = b/11*a
a = 121/11*10 = 11 * 10 = 110
a = 110 b = 121
10.
<span>a = 6 b = 2
b = a/2*b
</span>b = 6/2*2 = 3 *2 = 6
a = 6 b = 6<span>
a = 2*a + 3*b
a = 2*6 + 3*6 = 12 + 18 = 30
a = 30 b = 6
11.
<span>a = 2 b = 6
</span>b = 12 + a*b
b = 12 + 2*6 = 12 +12 = 24
a = 2 b = 24<span>
a = b/4*a
a = 24/4*2 = 6 * 2 = 12
a = 12 b = 24
12.
<span>а = 5 b = 4
а = 2*а + 3*b
</span>а = 2*5 + 3*4 = 10 + 12 = 22
a = 22 b = 4<span>
b = a/2*b
b = 22/2*4 = 11 * 4 = 44
a = 22 b = 44</span></span></span></span></span>
Буду обозначать поворот вектора на 90 градусов звёздочкой: если a = (x, y), то a* = (y, -x)
Обозначим вектор, соединяющий начало координат и конечную точку на i-м шаге, как v[i]. Заметим, что v[i + 1] = v[i] + v[i]*.
v[1] = (0, 1)
v[2] = (0, 1) + (1, 0) = (1, 1)
v[3] = (1, 1) + (1, -1) = (2, 0)
v[4] = (2, 0) + (0, -2) = (2, -2)
v[5] = (2, -2) + (-2, -2) = (0, -4)
v[6] = (0, -4) + (-4, 0) = (-4, -4)
Ответ: (-4, -4)
