Question

Задача на МНОЖЕСТВО. Паскаль. Дана непустая последовательность состоящая из некоторых букв русского, латинского алфавита, чисел. Вывести на экран все согласные буквы русского алфавита​

Answer 1

var  

 str,letter,out: string;

 N,i,j,M: integer;

begin

 out:= 'Все cогласные буквы строки: ';

 letter:= 'бвгджзйклмнпрстфхцчшщ';

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

 readln(str);

 N:= length(str);

 M:= 21;

 for i:= 1 to N do

   for j:= 1 to M do

   begin

     if str[i]=letter[j] then

       out:=out+str[i];

   end;

   writeln(out);

end.

Answer 2

===== PascalABC.NET =====

begin

 var Согл := 'бвгджзйклмнпрстфхцчшщъь'.ToHashSet;

 ReadlnString('Вводите:')

     .Select(c -> c.ToLower)

     .Where(c -> c in Согл)

     .Distinct

     .Println

end.

Answer 3

Вот пример кода на языке Паскаль (Pascal), который выводит все согласные буквы русского алфавита из заданной последовательности:

pascalCopy code
program SoglasnyeBukvy;

var
  sequence: string;
  consonants: set of Char;
  i: integer;
  ch: char;

begin
  sequence := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';

  // Создаем множество согласных букв русского алфавита
  consonants := ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м',
                 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];

  // Цикл для перебора символов в заданной последовательности
  for i := 1 to Length(sequence) do
  begin
    ch := sequence[i];

    // Проверяем, является ли символ согласной буквой русского алфавита
    if (ch in consonants) then
      writeln(ch);
  end;

  readln;
end.

В этом примере мы создаем множество consonants, содержащее все согласные буквы русского алфавита. Затем мы перебираем символы в заданной последовательности и проверяем, является ли каждый символ согласной буквой русского алфавита. Если символ является согласной буквой, он выводится на экран с помощью writeln(ch).