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.

Answer 2

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.

Answer 3

или так