Bai 2

SUBMITTED BY: Guest

DATE: May 10, 2015, 1:27 p.m.

FORMAT: Text only

SIZE: 470 Bytes

Raw Download

HITS: 1022

Report
  1. VAR s:STRING;
  2. i,d,j:INTEGER;
  3. PROCEDURE xuli;
  4. BEGIN
  5. IF s[1] <>#32 THEN
  6. BEGIN
  7. d:=1; j:=2;
  8. WHILE j<=length(s) DO
  9. IF s[j] = s[1] THEN
  10. BEGIN inc(d) ; delete(s,j,1); END
  11. ELSE inc(j);
  12. Write(s[1],' = ');
  13. writeln(d);
  14. delete(s,1,1);
  15. END ELSE delete(s,1,1);
  16. END;
  17. BEGIN
  18. Write('Nhap xau : ');
  19. Readln(S);
  20. FOR i:=1 TO length(s) DO
  21. s[i]:=upcase(s[i]);
  22. WHILE s<>'' DO
  23. xuli;
  24. Readln;
  25. END.
comments powered by Disqus