diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-10-31 22:21:50 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-10-31 22:21:50 +0700 |
commit | 71a6e456b59171a681bccff7eeba9db7367bca37 (patch) | |
tree | e6f517c4b4109e13c9bb31df6c4c40185ad7ddf7 /THT/C/TP-2016/set.pas | |
parent | 250b7d75204bb18311f51d8b67164f9ad4cef9f2 (diff) | |
download | cp-71a6e456b59171a681bccff7eeba9db7367bca37.tar.gz |
Thêm đề Tin học trẻ Quốc gia 2016 Bảng B
Diffstat (limited to 'THT/C/TP-2016/set.pas')
-rw-r--r-- | THT/C/TP-2016/set.pas | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/THT/C/TP-2016/set.pas b/THT/C/TP-2016/set.pas new file mode 100644 index 0000000..c36dc23 --- /dev/null +++ b/THT/C/TP-2016/set.pas @@ -0,0 +1,24 @@ +var + f : text; + m, n, id : shortint; + {This, because random failed on Windows, may because of not having /dev/urandom} + out : array[1..8] of shortint = (5, 1, 3, 7, 2, 6, 4, 8); + +begin + assign(f, 'set.inp'); + reset(f); + readln(f, m, n, id); + close(f); + if id = 2 then + begin + m := n; + n := 5 + end + else + n := 4; + assign(f, 'set.out'); + rewrite(f); + for id := 1 to m do + writeln(f, n, ' ', out[id]); + close(f) +end. \ No newline at end of file |