使用系統。集合。泛型；
名稱空間測試
{
班級計劃
{
公共靜態void Main(string[] args)
{
string substr，line =控制臺。ReadLine()；
字典& ltstring，int & gtd =新詞典& ltstring，int & gt();
如果(行！=行。ToLower())
{
控制臺。WriteLine("輸入非法字符")；
返回；
}
for(int index = 0；index & lt線。長度-1；index++)
{
substr=line。Substring(index，2)；
if(d.ContainsKey(substr))
d[substr]++；
其他
d.Add(substr，1)；
}
foreach(d . Keys中的字符串k)
{
if(d[k]& gt；1)
控制臺。WriteLine("{0} {1} "，k，d[k])；
}
控制臺。寫(“按任意鍵繼續。。. ");
控制臺。ReadKey(真)；
}
}
}