From 7de121c4b4ef888a0d1990c27144a7f9dd8c5f94 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Sun, 6 Nov 2016 11:13:14 +0700 Subject: Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- "9/Q-Hu\341\272\277-2014/bai1.pas" | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 "9/Q-Hu\341\272\277-2014/bai1.pas" (limited to '9/Q-Huế-2014/bai1.pas') diff --git "a/9/Q-Hu\341\272\277-2014/bai1.pas" "b/9/Q-Hu\341\272\277-2014/bai1.pas" new file mode 100644 index 0000000..7bd0d92 --- /dev/null +++ "b/9/Q-Hu\341\272\277-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. -- cgit 1.4.1