about summary refs log tree commit diff
path: root/09/Q-Huế-2014/bai1.pas
diff options
context:
space:
mode:
authorRaphael McSinyx <vn.mcsinyx@gmail.com>2017-01-09 10:47:37 +0700
committerRaphael McSinyx <vn.mcsinyx@gmail.com>2017-01-09 10:47:37 +0700
commit318184dbda0658d8afae6dd3c13a0718382726a1 (patch)
tree5a62259a03200cd77823431994fe3479e5d7461f /09/Q-Huế-2014/bai1.pas
parent15b38076cc08d89024864252e99e10fe6f597196 (diff)
downloadcp-318184dbda0658d8afae6dd3c13a0718382726a1.tar.gz
Add NTU/{pali2,editpic}.c and update README.md
Diffstat (limited to '09/Q-Huế-2014/bai1.pas')
-rw-r--r--09/Q-Huế-2014/bai1.pas15
1 files changed, 15 insertions, 0 deletions
diff --git a/09/Q-Huế-2014/bai1.pas b/09/Q-Huế-2014/bai1.pas
new file mode 100644
index 0000000..7bd0d92
--- /dev/null
+++ b/09/Q-Huế-2014/bai1.pas
@@ -0,0 +1,15 @@
+var
+  n, m, p: qword;
+
+begin
+  read(n, m);
+
+  while m <> 0 do
+    begin
+      p := n mod m;
+      n := m;
+      m := p
+    end;
+
+  writeln(n <> 1)
+end.