Var x,y:real;
begin
read (x,y);
if (x<0) and (y<0) then writeln (abs(x),' ',abs(y)) else
if ((x<0) and (y>=0)) or ((y<0) and (x>=0)) then writeln (x+27,' ',y+27) else
if (x>=0)and (y>=0) then writeln (x-20,' ',y-20);
end.
ПрезентацияMicrosoftPowerPoint.ptx
Делим на 2, записываем остатки
307 | 153 ост 1
153 | 76 ост 1
76 | 38 ост 0
38 | 19 ост 0
19 | 9 ост 1
9 | 4 ост 1
4 | 2 ост 0
2 | 1 ост 0
1
Выписываем 1 и все остатки снизу вверх: 100110011.
В двоичном представлении 5 единиц.
2^8=256 оттенков
=>Так как 7 бит недостаточно(128 оттенков), 8 бит.