rostr5.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 12 行

var s:string;
    c:char;
    i,n:byte;
begin
write('s=');readln(s);
write('c=');readln(c);
n:=0;
for i := 1 to length(s) do
   if upcase(s[i])=upcase(c) then inc(n);
write(n);
end.