Составить программу на паскаль.

Слова могут содержать любые символы языка. Найти и вывести в самом длинномслове все символы, отличные от заглавных латинских букв. Использовать множества.

Question

Информатика

Константинка

8 сентября, 07:40

Составить программу на паскаль.

Слова могут содержать любые символы языка. Найти и вывести в самом длинномслове все символы, отличные от заглавных латинских букв. Использовать множества.

+4

Ответы (1)

Знаете ответ?

Ианикит · Answer 1

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.