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

@Степанид · Регистрация: 12.12.2018

2. Задано слово английского языка. Напечатать в алфавитном порядке те буквы, которые не встречаются в этом слове.

@ZX Spectrum-128 · 14.12.2018, 14:45

Pascal

const
  mn = ['A'..'Z', 'a'..'z'];
 
var
  s: string;
  q: set of char;
  i: integer;
 
begin
  q := [];
  readln(s);
  for i := 1 to length(s) do
    if s[i] in mn then
      include(q, s[i]);
  q := MN - Q;
  writeln(q);
end.

@Степанид 0 / 0 / 0 Регистрация: 12.12.2018 Сообщений: 18
		1
	Напечатать в алфавитном порядке те буквы, которые не встречаются в заданном слове 14.12.2018, 14:04. Показов 536. Ответов 1 Метки нет (Все метки) 2. Задано слово английского языка. Напечатать в алфавитном порядке те буквы, которые не встречаются в этом слове. 0

Опции темы