Определить, сколько букв русского алфавита не встречается в тексте - Pascal ABC

Формулировка задачи:

Помогите пожалуйста решить задачу на обработку множества с помощью процедур. Задача: Слова в тексте разделены пробелами. Сколько букв русского алфавита не встречается в этом тексте?

Код к задаче: «Определить, сколько букв русского алфавита не встречается в тексте - Pascal ABC»

textual
var s:string;
    rb:set of char;
    c:char;
    i,k:byte;
begin
writeln('Введите строку, содержащую русские буквы');
readln(s);
rb:=['А'..'я','Ё','ё'];
for i:=1 to length(s) do
rb:=rb-[s[i]];
k:=0;
for c:='Ё'to 'я' do
if c in rb then inc(k);
write('В тексте нет ',k,' русcких букв');
end.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ