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

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

Question

Информатика

Минай

17 января, 16:16

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

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

+2

Ответы (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.