open List;; let ker a = (int_of_float a);; let rec printer n m k = let rec printer2 m n k = let a = k/.(m+.n) in let k1 = a*.m in let kk1 = float_of_int (ker k1) in let k2 = a*.n in let kk2 = float_of_int (ker k2) in if (kk1/.m+.1./.m)<(kk2/.n+.1./.n) then (kk1+.1.)/.m else (kk2+.1.)/.n in (* print_float ((k/.(m+.n))*.m);*) print_float (if n>m then printer2 n m k else printer2 m n k);; print_string "vvedite skorost pervogo printera ";; let rec z = read_int ();; let m = 1./.(float_of_int z);; print_string "\n vvedite skorost vtorogo printera: ";; let rec z = read_int ();; let n = 1./.(float_of_int z);; print_string "\n How many copy? ";; let rec z = float_of_int (read_int ());; print_string "\n __________________Itogo VREMENI:"; printer n m z;;