2014年初中竞赛试题(南海) 字符串

来源:互联网 发布:猎豹浏览器mac版 编辑:程序博客网 时间:2024/05/05 07:42

题目:

这里写图片描述

作者思路:水题一道。
pos(‘bear’,st)找位置
算出包含字串的个数。

代码:

var st:ansistring;    ans:longint;begin  read(st);  while pos('bear',st)<>0 do  begin    ans:=ans+pos('bear',st)*(length(st)-(pos('bear',st)+3)+1);    delete(st,1,pos('bear',st));  end;  write(ans);end.
0 0
原创粉丝点击