about summary refs log tree commit diff
path: root/THT-C/TP-2016/set.pas
diff options
context:
space:
mode:
authorRaphael McSinyx <vn.mcsinyx@gmail.com>2016-10-31 22:21:50 +0700
committerRaphael McSinyx <vn.mcsinyx@gmail.com>2016-10-31 22:21:50 +0700
commit71a6e456b59171a681bccff7eeba9db7367bca37 (patch)
treee6f517c4b4109e13c9bb31df6c4c40185ad7ddf7 /THT-C/TP-2016/set.pas
parent250b7d75204bb18311f51d8b67164f9ad4cef9f2 (diff)
downloadcp-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.pas24
1 files changed, 0 insertions, 24 deletions
diff --git a/THT-C/TP-2016/set.pas b/THT-C/TP-2016/set.pas
deleted file mode 100644
index c36dc23..0000000
--- a/THT-C/TP-2016/set.pas
+++ /dev/null
@@ -1,24 +0,0 @@
-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