From 318184dbda0658d8afae6dd3c13a0718382726a1 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Mon, 9 Jan 2017 10:47:37 +0700 Subject: Add NTU/{pali2,editpic}.c and update README.md --- 9/TP-HN-2014/cau1.pas | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 9/TP-HN-2014/cau1.pas (limited to '9/TP-HN-2014/cau1.pas') 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. -- cgit 1.4.1