12/TP-ThanhHoá-2009: Add bai3.pas

1 files changed, 44 insertions, 0 deletions

diff --git a/12/TP-ThanhHoá-2009/bai3.pas b/12/TP-ThanhHoá-2009/bai3.pas
new file mode 100644
index 0000000..a98141e
--- /dev/null
+++ b/12/TP-ThanhHoá-2009/bai3.pas
@@ -0,0 +1,44 @@
+var
+  f: text;
+  s: string;
+  min: byte = 255;
+
+
+procedure palen(
+  s: string;
+  tmp: smallint
+);
+
+  begin
+    if tmp + length(s) >= min then
+      exit;
+
+    if length(s) < 2 then
+      begin
+        min := tmp + length(s);
+        exit
+      end;
+
+    if s[1] = s[length(s)] then
+      palen(copy(s, 2, length(s) - 2), tmp + 2)
+    else
+      begin
+        palen(copy(s, 2, length(s) - 1), tmp + 2);
+        palen(copy(s, 1, length(s) - 1), tmp + 2)
+      end
+  end;
+
+
+begin
+  assign(f, 'BAI3.INP');
+  reset(f);
+  read(f, s);
+  close(f);
+
+  palen(s, -length(s));
+
+  assign(f, 'BAI3.OUT');
+  rewrite(f);
+  writeln(f, min);
+  close(f)
+end.