Множества Опции

[Terminator]

Помогите!!! :o

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

Как решить эту задачу с помощью множеств?

[volvo]

Terminator
Что-то такого типа ...

Код

const
 ToFind = ['б', 'в', 'г', 'д', 'ж', 'з'];
var
 Found: set of char;
 s: string; i: byte;
 lett: char;
begin
 write('s = '); readln(s);
 for i := 1 to length(s) do
   if s[i] in ToFind Then Found := Found + [s[i]];

 For lett := 'а' to 'я' do
   if lett in Found then write(lett, ' ');
end.

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