Предмет: Информатика,
автор: annet2012
Слова в тексте разделены пробелами. Какие символы есть в каждом слове?
Паскаль.
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var s:=ReadlnString('Текст->').ToWords;
var c:=s[0].Intersect(s[1]);
for var i:=2 to s.Length-1 do c:=c.Intersect(s[i]);
Write('Символы, встречающиеся в каждом слове: ');
c.Println(',')
end.
Пример
Текст-> сегодня двенадцатое ноября
Символы, встречающиеся в каждом слове: о,н
begin
var s:=ReadlnString('Текст->').ToWords;
var c:=s[0].Intersect(s[1]);
for var i:=2 to s.Length-1 do c:=c.Intersect(s[i]);
Write('Символы, встречающиеся в каждом слове: ');
c.Println(',')
end.
Пример
Текст-> сегодня двенадцатое ноября
Символы, встречающиеся в каждом слове: о,н
Интересные вопросы
Предмет: Алгебра,
автор: ksjdidddjdjdj
Предмет: Математика,
автор: grygorchuk09
Предмет: Другие предметы,
автор: saska6841
Предмет: Алгебра,
автор: Юляшка2011