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

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.

Comments

begin var L := ReadlnReal() * 10; var K := ReadlnReal(); var (Len, Hit) := (0.0, 0); while (Len < L) do begin inc(Hit); Len += K end; Print(Hit)end.

---

или так