Автор: Terminator 28.11.2004 19:20
Помогите!!! :o
Цитата
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят хотя бы в одно слово.
Как решить эту задачу с
помощью множеств?
Автор: Terminator 28.11.2004 19:21
Забыл сказать, что звонкие согласные - это б в г д ж з ;)
Автор: volvo 28.11.2004 19:26
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 20:14
А что, определить переменные так трудно самому? Смотри предыдущий пост, я исправил...