Дана строчка содержащая любые символы не считая российских букв.Под "словом" будем разуметь

Дана строчка содержащая любые знаки не считая российских букв.

Под "словом" будем понимать последовательность символов, ограниченную пробелами либо стоящую в конце либо начале строки. Меж словами может быть несколько пробелов. Так же пробелы могут быть в конце либо начале строки.

Написать функцию, которая в данной строке обретает количество cлов - палиндромов.

Использовать заголовок:

function CalcWord(Stroka: string): integer;


Pascal

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

function CalcWord(Stroka: string):integer;
begin
  Result:=Stroka.ToWords.Where(w-gt;w=w.Inverse).Count
end;

begin
  var s:='казак пошел в кабак и сделал заказ';
  Writeln('Слов-палиндромов: ',CalcWord(s))
end.

Результат
Слов-палиндромов: 5

Если однобуквенные слова не учитываются, надо поменять Where:
Where(w-gt;(w=w.Inverse) and (w.Lengthgt;1))



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт