SHARE
TWEET

Substraightstring.pas

finalshare Jul 26th, 2015 (edited) 231 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //Do phuc tap O(n)
  2. var
  3.         fi,fo:text;
  4.         k,i,j,n,dem,max:longint;
  5.         a: array [1..1000000] of longint;
  6.         check:boolean;
  7. begin
  8.         assign(fi,'INPUT.INP');
  9.         assign(fo,'OUTPUT.OUT');
  10.         reset(fi);
  11.         rewrite(fo);
  12.         readln(fi,n);
  13.         for i:=1 to n do
  14.         read(fi,a[i]);
  15.         i:=0;
  16.         max:=0;
  17.         while i<=(n-2) do
  18.                 begin
  19.                         inc(i);
  20.                         dem:=1;
  21.                         if (a[i] = a[i+1]) and (i < n) then //Tim thay truong hop thoa man
  22.                                 while ( a[i] = a[i+1] ) and ( i<n ) do
  23.                                         begin
  24.                                                 inc(i);
  25.                                                 dem:=dem+1;
  26.                                         end;
  27.                         if dem>max then max:= dem;
  28.                 end;
  29.         if max < 2 then //Max = 1 , Max=0 thi STOP
  30.                 begin
  31.                         write(fo,'KHONG TON TAI');
  32.                         close(fo);
  33.                         close(fi);
  34.                         exit;
  35.                 end;
  36.         write(fo,max);
  37.         writeln(fo);
  38.         for i:=1 to n-max+1 do
  39.         begin
  40.         check:=true;
  41.         for j:=i to i+max-2 do
  42.                         if (a[j]<>a[j+1]) and (j<n) then check:=false;
  43.                 if check then
  44.                         for k:=i to i+max-1 do write(fo,a[k],' ');
  45.                 if check then
  46.                         writeln(fo);
  47.         end;
  48.         close(fi);
  49.         close(fo);
  50. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top