Некоторые ребята из нашего класса любят ходить в кино. Известно, что 12 ребят смотрели фильм «Ёлки», - id1554037820200310 от ClassikStupidMasha 10.03.2020 21:10

Question

Информатика: Некоторые ребята из нашего класса любят ходить в кино. Известно, что 12 ребят смотрели фильм «Ёлки», 9 человек – фильм «Неудержимый», из них 6 смотрели и «Ёлки», и «Неудержимый». Сколько человек смотрели только фильм «Неудержимый»?

ClassikStupidMasha · Accepted Answer

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш

MOGZ ответил