это будет Кодий образца
Тусклый s1 как шнур = «abc»
Тусклое s2 как шнур = «abgc»
Тусклое diffcnt как интежер = 0
Для каждого c как чарс в s1
Если не s2.Contains (c) после этого
diffcnt = diffcnt + 1
Закончитесь если
Затем
Для каждого c как чарс в s2
Если не s1.Contains (c) после этого
diffcnt = diffcnt + 1
Закончитесь если
Затем
Response.Write (diffcnt & «письмо друг»)