Xâu Con

SUBMITTED BY: Guest

DATE: Nov. 29, 2014, 11:44 a.m.

FORMAT: Text only

SIZE: 413 Bytes

Raw Download

HITS: 848

Report
  1. PROGRAM Xaucon;
  2. USES crt;
  3. VAR s,s1,s2 : STRING;
  4. i,j,dem: BYTE;
  5. f1,f2:TEXT;
  6. BEGIN
  7. assign(f1,'XAU.INP');
  8. assign(f2,'XAU.OUT');
  9. reset(f1);
  10. rewrite(f2);
  11. Readln(f1,S1);
  12. Readln(f1,s2);
  13. FOR i:=1 TO length(s2)-length(S1)+1 DO
  14. BEGIN
  15. s:='';
  16. FOR j:=i TO length(s1) + i -1 DO
  17. s:=s+s2[j];
  18. IF s= s1 THEN dem:=dem+1;
  19. END;
  20. Write(f2,dem);
  21. close(f2);
  22. END.
comments powered by Disqus