From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <mcsinyx@disroot.org>
Date: Sat, 6 Jun 2020 21:33:13 +0700
Subject: Reorganize stuff from secondary school

---
 2ndary/09/TP-HN-2014/cau3.pas | 59 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 2ndary/09/TP-HN-2014/cau3.pas

(limited to '2ndary/09/TP-HN-2014/cau3.pas')

diff --git a/2ndary/09/TP-HN-2014/cau3.pas b/2ndary/09/TP-HN-2014/cau3.pas
new file mode 100644
index 0000000..1785da9
--- /dev/null
+++ b/2ndary/09/TP-HN-2014/cau3.pas
@@ -0,0 +1,59 @@
+var
+  f: text;
+  s: string;
+  c: char;
+  a: array of byte;
+  i, j: byte;
+  tmp: byte = 0;
+
+
+function palin(
+  s: string;
+  l, h: byte
+): boolean;
+
+  begin
+    while l <= h do
+      begin
+        if s[l] <> s[h] then
+          exit(false);
+
+        inc(l);
+        dec(h);
+      end;
+
+    palin := true
+  end;
+
+
+
+begin
+  assign(f, 'CAU3.INP');
+  reset(f);
+  readln(f, s);
+  close(f);
+
+  setlength(a, 256);
+  for i := 0 to 255 do
+    a[i] := 0;
+
+  for c in s do
+    inc(a[ord(c)]);
+
+  for i in a do
+    if i > 0 then
+      inc(tmp);
+
+  assign(f, 'CAU3.OUT');
+  rewrite(f);
+  writeln(f, tmp);
+
+  tmp := 0;
+  for i := 1 to length(s) - 1 do
+    for j := i + tmp to length(s) do
+      if palin(s, i, j) then
+        tmp := j - i + 1;
+
+  writeln(f, tmp);
+  close(f)
+end.
-- 
cgit 1.4.1