Множества. Русский текст. Опции

[vi-rus]

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

[volvo]

У тебя последнее слово не обрабатывается по очень простой причине: перемножение множеств ты делаешь только тогда, когда очередная буква = пробелу, т.е., когда закончили читать еще одно слово... А когда достигнут конец строки? Пробела-то нет, вот последнее слово и не у дел...

Самый простой (но не совсем правильный) способ исправить -

writeln('Введите текст на русском языке');
readln(text);

{
  осторожно! если будет введена длинная строка -
  на этот пробел может не хватить места...
}
text := text + ' '; 

Сообщение отредактировано: volvo - 18.05.2007 20:12