讨论 / Pascal
Heartbeat 2016-01-01 06:04:44
点我顶贴 收藏 删除
var a:string;

s:ansistring;

x:array [0..335000] of string;

t,i,k,l,n:longint;

begin

readln(a);

readln(s);

t:=1;

for i:=1 to length(a) do

if(a[i]>='A')and(a[i]<='Z') then

a[i]:=lowercase(a[i]);

for i:=1 to length(s) do

begin

if(s[i]>='A')and(s[i]<='Z') then

s[i]:=lowercase(s[i]);

if s[i]<>' ' then x[t]:=x[t]+s[i]

else inc(t);

end;

for i:=1 to t do

if x[i]=a then inc(k);

if k=0 then begin

write(-1);

exit;

end

else write(k,' ');

for i:=1 to t do

if x[i]=a then begin

n:=i;

break;

end;

for i:=1 to n-1 do

l:=l+length(x[i])+1;

write(l);

end.

查看更多回复
提交回复