Wikioi 天梯 寻找子串位置（1204）

题目描述 Description

给出字符串a和字符串b，保证b是a的一个子串，请你输出b在a中第一次出现的位置。

输入描述 Input Description

仅一行包含两个字符串a和b

输出描述 Output Description

仅一行一个整数

样例输入 Sample Input

abcd bc

样例输出 Sample Output

2

数据范围及提示 Data Size & Hint

字符串的长度均不超过100

Pascal用户请注意：两个字符串之间可能包含多个空格（作者PS:最多含有两个空格）

本题曾经没说字串间多个空格的事，所以笔者被坑过，所以本题就不吐槽了~~

所用知识：

pos(s,st)返回字串s在字串st中首次出现的位置，位置按首个匹配字符计（例如pos('asd','asssdasddd')=6），若s不是st的子串，返回值为零；

length（st）返回字符串st的长度；

copy（st，n，x）返回字符串st从第n位开始的连续x个字符构成的子串（字串）；

delete（st，n，x）操作：将字符串st从第n位开始的连续x个字符删掉。

算法描述：

读入一整行为一个字符串，以空格为标志将该串分割成需要的两个字符串（具体方法见代码），输出pos（s，st）。这里在删除空格的时候由于不止一个，应该用while实现，但笔者剧透，数据最多有两个空格间隔~~

Program str;
Var
	s,st:string;
Begin
	readln(st);
	s:=copy(st,pos(' ',st)+1,length(st)-pos(' ',st));
	delete(s,pos(' ',s),1);
	delete(st,pos(' ',st),length(st)-pos(' ',st)+1);
	writeln(pos(s,st));
End.