
Oghmaghma
6 год назад
Слова в тексте разделены пробелами. Какие символы есть в каждом слове?
Паскаль.
ОТВЕТЫ

Gasomridm
Aug 5, 2019
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var s:=ReadlnString(Текст-gt;).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.
Пример
Текст-gt; сегодня двенадцатое ноября
Символы, встречающиеся в каждом слове: о,н
begin
var s:=ReadlnString(Текст-gt;).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.
Пример
Текст-gt; сегодня двенадцатое ноября
Символы, встречающиеся в каждом слове: о,н
53
Смежные вопросы: