Даны две фамилии. Определить, сколько раз во втором слове встречается первая буква первой фамилии. Please, нужно написать программу на pascal abc.net, используя служебное слово string.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadlnString('>').ToWords; var c:=UpCase(s[0][1]); // первая буква первого слова var w:string:=s[1].ToUpper; // второе слово на верхнем регистре var n:=0; for var i:=1 to w.Length do if Pos(c,w[i])>0 then Inc(n); Writeln('Буква "',s[0][1],'" встретилась во втором слове ', n,' раз(а)') end.
Тестовое решение > Васильев Воеводченков Буква "В" встретилась во втором слове 3 раз(а)
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
