Составить программу на паскаль.
Слова могут содержать любые символы языка. Найти и вывести в самом длинномслове все символы, отличные от заглавных латинских букв. Использовать множества.
Слова могут содержать любые символы языка. Найти и вывести в самом длинномслове все символы, отличные от заглавных латинских букв. Использовать множества.
More Questions From This User See All
Answers & Comments
a : array of string;
str, m: string;
begin
readln(str);
a := str.Split(' ');
foreach str in a do
if (m.Length < str.Length) then
m := str;
foreach kchr: char in m do
if not (kchr in ['A'..'Z']) then
write(kchr);
end.