Question

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

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.

Answer 2

Вот программа на Pascal, которая находит и выводит все символы, отличные от заглавных латинских букв, из самого длинного слова во введенной строке, используя множества:

pascalCopy code
program LongestWord;

uses
  SysUtils;

var
  inputString, longestWord: string;
  words: TStringList;
  i: integer;
  nonCapitalLetters: set of char;

begin
  nonCapitalLetters := ['a'..'z', '0'..'9', ' ', '.', ',', '!', '?', ';', ':', '-', '_']; // Добавьте сюда другие символы, которые вы хотите исключить

  writeln('Введите строку:');
  readln(inputString);

  words := TStringList.Create;
  words.Delimiter := ' ';
  words.DelimitedText := inputString;

  longestWord := '';

  for i := 0 to words.Count - 1 do
  begin
    if Length(words[i]) > Length(longestWord) then
      longestWord := words[i];
  end;

  writeln('Самое длинное слово: ', longestWord);
  writeln('Символы, отличные от заглавных латинских букв:');

  for i := 1 to Length(longestWord) do
  begin
    if not (longestWord[i] in ['A'..'Z']) and not (longestWord[i] in nonCapitalLetters) then
      write(longestWord[i]);
  end;

  writeln;
  words.Free;
  readln;
end.

Вы можете ввести строку, и программа найдет самое длинное слово и выведет все символы из него, которые не являются заглавными латинскими буквами.