-module(p). -export([m/0]). m()->io:format("1.~p",[f(1,1,1,600)]). f(A,B,_,0)->(A-B)*g(98)div B;f(A,B,C,N)->f(B+C,A,B,N-1). g(0)->1;g(N)->10*g(N-1).