Xâu Gọn

SUBMITTED BY: Guest

DATE: Nov. 25, 2014, 2:58 p.m.

FORMAT: Text only

SIZE: 482 Bytes

Raw Download

HITS: 776

Report
  1. PROGRAM xaugon;
  2. USES crt;
  3. VAR x,g:STRING[250]; i:BYTE; f1,f2:TEXT;
  4. PROCEDURE docvao;
  5. BEGIN
  6. assign(f1,'Xaugon.INP');
  7. reset(f1);
  8. assign(f2,'Xaugon.OUT');
  9. rewrite(f2);
  10. Readln(f1,x);
  11. close(f1);
  12. END;
  13. PROCEDURE Xoa;
  14. VAR i:BYTE;
  15. BEGIN
  16. FOR i:=1 TO length(x) DO
  17. IF x[i] <> x[i+1] THEN g:=g+x[i];
  18. END;
  19. PROCEDURE Inra;
  20. BEGIN
  21. Write(f2,g);
  22. close(f2);
  23. END;
  24. BEGIN
  25. docvao;
  26. xoa;
  27. inra;
  29. END.
comments powered by Disqus