SHARE
TWEET

KHAPALIN

a guest Sep 20th, 2015 175 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. const
  2.         finp='';
  3.         fout='';
  4. var
  5.         f:text;
  6.         S:ansistring;
  7.         a:array [0..127] of longint;
  8.         i:longint;
  9.         c:longint;
  10. procedure init;
  11.         begin
  12.         assign(f,FINP);
  13.         reset(f);
  14.         read(f,S);
  15.         close(f);
  16.         assign(f,FOUT);
  17.         rewrite(f);
  18.         end;
  19. procedure process;
  20. begin
  21.         for i:=1 to length(S) do
  22.                 inc(a[ord(S[i])]);
  23.         for i:=0 to 127  do
  24.                 begin
  25.                         if a[i] mod 2 =1 then  inc(c);
  26.                 end;
  27.         if c>1 then write(f,FALSE) else write(f,TRUE);
  28. end;
  29. begin
  30. init;
  31. process;
  32. close(f);
  33. 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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top