pascal找出“THISABOOK！HATISINDISK？”中“IS”出现的全部位置。

楼上的傻子们，用while+pos就行了
var
s,s1:string;
i,j:integer;
begin
s:='THISABOOK!HATISINDISK?';
while pos('is',s)>0 then write(pos('is',s):4);
readln;
end.

这个，大概是这样的吧……

var
str:string;
i:longint;
begin
readln(str); {读入“THISABOOK！HATISINDISK？”}
for i:=1 to length(str)-1 do
if copy(str,i,2)='IS' then
writeln(i);
end.

从1到字串长度循环，判断如果copy(s,i,2)='is' then 输出位置序号

还是用c++编的好