diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-01-09 10:47:37 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-01-09 10:47:37 +0700 |
commit | 318184dbda0658d8afae6dd3c13a0718382726a1 (patch) | |
tree | 5a62259a03200cd77823431994fe3479e5d7461f /9/TP-HN-2014/cau1.pas | |
parent | 15b38076cc08d89024864252e99e10fe6f597196 (diff) | |
download | cp-318184dbda0658d8afae6dd3c13a0718382726a1.tar.gz |
Add NTU/{pali2,editpic}.c and update README.md
Diffstat (limited to '9/TP-HN-2014/cau1.pas')
-rw-r--r-- | 9/TP-HN-2014/cau1.pas | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/9/TP-HN-2014/cau1.pas b/9/TP-HN-2014/cau1.pas deleted file mode 100644 index 466d4c4..0000000 --- a/9/TP-HN-2014/cau1.pas +++ /dev/null @@ -1,46 +0,0 @@ -var - f: text; - a, b, g: int64; - c, d: smallint; - - -function gcd(x, y: int64): int64; - var z: int64; - - begin - while y <> 0 do - begin - z := y; - y := x mod y; - x := z - end; - - gcd := a - end; - - -begin - assign(f, 'CAU1.INP'); - reset(f); - read(f, a, b, c, d); - close(f); - - a := a * d - c * b; - b := b * d; - - g := gcd(a, b); - - a := a div g; - b := b div g; - - if b < 0 then - begin - a := -a; - b := -b - end; - - assign(f, 'CAU1.OUT'); - rewrite(f); - writeln(f, a, ' ', b); - close(f) -end. |