• Задана строка символов. Группы символов, разделенные пробелом и не
    содержащие пробелов внутри себя, будем называть словами. Найти количество слов в строке, у которых первый и последний символ совпадают.

Ответы 1

  • var currentPos,wordsAmount:byte; groupWords:string; procedure isCorrect(startPos:byte);  begin   while currentPos+1<=length(groupWords) do    if groupWords[currentPos+1]<>' ' then inc(currentPos) else break;   if groupWords[startPos]=groupWords[currentPos] then    inc(wordsAmount);  end;begin readln(groupWords); wordsAmount:=0; currentPos:=1; while currentPos<=length(groupWords) do  begin   if (groupWords[currentPos]<>' ') then isCorrect(currentPos);   inc(currentPos);  end; writeln(wordsAmount); readln;end.
    • Автор:

      bella92gg
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years