输入一个字符,再输入一个字符串,统计该字符串中出现的次数,需要有输入的程序

如题所述

var c:char;i,j:longint;s:string;
begin
readln(c);
readln(s);j:=0;
for i:=1 to length(s) do
if s[i]=c then inc(j);
writeln(j);
end;
温馨提示:答案为网友推荐,仅供参考
相似回答