Fast and furiously add others/volume1

1 files changed, 27 insertions, 0 deletions

diff --git a/others/volume1/006.pas b/others/volume1/006.pas
new file mode 100644
index 0000000..989acba
--- /dev/null
+++ b/others/volume1/006.pas
@@ -0,0 +1,27 @@
+var
+  a, b, g: int64;
+  c, d: longint;
+
+
+function gcd(x, y: int64): int64;
+  var
+    z: longint;
+
+  begin
+    while y > 0 do
+      begin
+        z := y;
+        y := x mod y;
+        x := z
+      end;
+    gcd := x
+  end;
+
+
+begin
+  readln(a, b, c, d);
+  a := a * d + b * c;
+  b := b * d;
+  g := gcd(a, b);
+  writeln(a div g, ' ', b div g)
+end.