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.