var x:real;n:comp;begin repeat read(x);n:=201204;repeat if odd(n)then x:=sin(x)else x:=cos(x);shr(n,1)until n=0;writeln(x:0:6)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page