diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-02-28 20:16:22 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-02-28 20:16:22 +0700 |
commit | 1cfc8e7ba45619f8a9837b4438c609948800dfff (patch) | |
tree | fe781b2edbd88fd9d6f00b16cb3354ecae14bbd2 /daily/303easy/ricochet.pas | |
parent | b7e55e6510690093d61f9cc1152e0330e55fe90b (diff) | |
download | cp-1cfc8e7ba45619f8a9837b4438c609948800dfff.tar.gz |
Add /r/dailyprogrammer Challenge #303 [Easy]
Diffstat (limited to 'daily/303easy/ricochet.pas')
-rw-r--r-- | daily/303easy/ricochet.pas | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/daily/303easy/ricochet.pas b/daily/303easy/ricochet.pas new file mode 100644 index 0000000..5ebc179 --- /dev/null +++ b/daily/303easy/ricochet.pas @@ -0,0 +1,35 @@ +var + h, w, v, lcm: int64; + + +function gcd(a, b: int64): int64; + var + c: int64; + + begin + while b > 0 do + begin + c := b; + b := a mod b; + a := c + end; + gcd := a + end; + + +begin + repeat + readln(h, w, v); + lcm := h * w div gcd(h, w); + if lcm div h mod 2 = 0 then + write('U') + else + write('L'); + if lcm div w mod 2 = 0 then + write('L ') + else + write('R '); + write(lcm div h + lcm div w - 2); + writeln(' ', lcm div v) + until eof(input) +end. |