Question

(PASCALABC.NET) пж решите срочно надо

Answer 1

function foo(L, K: real): real;

 

 function bar(Len: real): real;

 begin

   Result := 0;

   if Len >= L then Result += 1

   else Result := 1 + bar(Len + K)

 end;

begin

 Result := bar(K)

end;

begin

 var L := ReadlnReal() * 10;

 var K := ReadlnReal();

 Print(foo(L, K))

end.