let rec f x y z=Printf.printf"%d
"y;x>1&f(x-1)(y+y*z/100)z;;Scanf.scanf"%d:%d:%d"f