1
0
Fork 0
mirror of https://gitlab.com/mfocko/CodeWars.git synced 2024-11-24 01:31:56 +01:00
CodeWars/8kyu/beginner_series_iv/solution.pas

15 lines
175 B
ObjectPascal
Raw Normal View History

unit Kata;
interface
function CockroachSpeed(s: Real): Integer;
implementation
function CockroachSpeed(s: Real): Integer;
begin
Result := Trunc(250 * s / 9);
end;
end.