program all_in_all;
var m,n,t:string;i,j:integer;k,l:integer;flag:string[3];
begin
readln(t);
l:=pos(' ',t);k:=length(t);
m:=copy(t,1,l-1);
delete(t,1,l);
n:=t;
k:=length(m);
l:=length(n);j:=1;i:=1;
while i<k do
begin
 while (m[i]<>n[j]) do
 begin
 inc(j);
  if j>l then
  begin flag:='No';break;write(i,j)
  end;
 end;
 inc(i);inc(j);
 if j>l then
  begin flag:='No';break;write(i,j)
  end;
if (i=k) and (flag<>'No') then flag:='Yes';
end;{while}
writeln(flag);
end.

• Re:Why wa? (12) mayakovsky 2004-10-24 20:16:35
  • Re:Why wa? (21) mayakovsky 2004-10-24 20:17:39