diff options
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. |