Составить программу на паскаль. Слова могут содержать любые символы языка. Найти и вывести в самом длинномслове все символы, отличные от заглавных латинских букв. Использовать множества.
Составить программу на паскаль.
Слова могут содержать любые символы языка. Найти и вывести в самом длинномслове все символы, отличные от заглавных латинских букв. Использовать множества.
Гость
Ответ(ы) на вопрос:
Гостьvar
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.
Не нашли ответ?
Похожие вопросы