Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  catcatcatc at
Language: PASCAL
Code:
program qq;
var s : string;
var i, n, a, c, k : integer;
begin
    read(s);
    for i := 1 to length(s);
    begin
        n := pos('cat', s);
        if n > 0 then
        begin
            k := k + 1;
        end;
    end;
    write(k);
end.     
          
Comments: