Строка. Алфавитный порядок. Опции

[Анна]

Определить все согласные буквы латинского алфаваита, которые не входят в строку, введённую пользователем, вывести их на экран в алфавитном порядке.

Получается только выводить буквы, содержащиеся в строке. Что-то меня по-моему глючит уже сегодня ...

uses crt;
var
s: string;
i: integer;
q: set of char;

begin
clrscr;
q := ['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','j','v','x','z'];
writeln ('Введите строку:  '); readln (s);
for  i:=1 to length (s) do begin
if s[i] in q then write (s[i]); end;
readln;
end.

Сообщение отредактировано: volvo - 6.11.2006 21:16