var i, n, y: integer;begin write ('x= '); readln (x); if (x>0) then y:=sin(2*x) else y:=1-(2*(sin(2*x))); write(y);end;
1) 121 = 1111001
+
66 = 1000010
= 1111011
2) 666 = 1010011010
228 = 11100100
= 1101111110