Вывести в алфавитном порядке все глухие согласные буквы, не входящие в строку

@Basachi · Регистрация: 28.09.2015

Author24 — интернет-сервис помощи студентам

Дана непустая строка из строчных русских букв. Напечатать в алфавитном порядке все глухие согласные буквы, не входящие в строку.

@kot96 · 09.10.2015, 20:42

Pascal

var s:string;
    i,j,k:integer;
    mn:array [1..10] of char;
begin
mn[1] := 'к';
mn[2] := 'п';
mn[3] := 'с';
mn[4] := 'т';
mn[5] := 'ф';
mn[6] := 'х';
mn[7] := 'ц'; 
mn[8] := 'ч';
mn[9] := 'ш';
mn[10] := 'щ';
 
write('Введите строку: ');
read(s);
for i :=1 to 10 do
  begin
  k:=0;
    for j:=1 to s.Length do
      begin
      if mn[i] = s[j] then k:= 1;
      end;
  if (k = 0) then write (mn[i]);
  end;
end.

@volvo · 09.10.2015, 21:00

по традиции - решение в одну строку:

Pascal

uses System, Arrays;
begin
  'пфктшсхцчщ'.Except(ReadString('Введите строку:')).OrderBy(c -> c).ToArray().Writeln;
end.

(.NET 4+)

@Basachi 0 / 0 / 1 Регистрация: 28.09.2015 Сообщений: 19
		1
	Вывести в алфавитном порядке все глухие согласные буквы, не входящие в строку 09.10.2015, 19:05. Показов 1545. Ответов 2 Метки нет (Все метки) Дана непустая строка из строчных русских букв. Напечатать в алфавитном порядке все глухие согласные буквы, не входящие в строку. 0

	09.10.2015, 21:00

Вывести в алфавитном порядке все глухие согласные буквы, не входящие в строку

Решение