v8: Подсчитать сколько раз последняя буква 1 слова встречается во 2 слове

 

&НаКлиенте

Процедура Задание1(Команда)	

Перем a;	

Перем b;

ВвестиСтроку(a, "Введите 1 слово:",,);	

ВвестиСтроку(b, "Введите 2 слово:",,);

ПоследнийСимвол = Прав(a,1);

Сообщить ("Первое слово - " + a + " , Второе слово - "+ b +" . Ищем символ *" + ПоследнийСимвол +"* во 2 слове");

Результат = СтрЧислоВхождений (b,ПоследнийСимвол); 

Сообщить("В слове "+b+" буква "+ПоследнийСимвол+" встречается " +Результат+" раз.");

КонецПроцедуры   

 Перем Слово1;

 Перем Слово2;

 ВвестиСтроку (Слово1, "Введите 1 слово:",,);

 ВвестиСтроку (Слово2, "Введите 2 слово:",,);

 ПоследнийСимвол = Прав(Слово1,1);

 ДлинаСлова = СтрДлина(Слово2);

 Счетчик = 0;

 Для i = 1 По ДлинаСлова Цикл

  Если ПоследнийСимвол = Слово2 Тогда

   Счетчик = Счетчик+1;

  КонецЕсли;

 КонецЦикла;

 Сообщить(Счетчик);