Тема: Множества

[Ирина93]

Определить какие буквы алфавита не встречаются данной строке и подсчитать их

[veniside]

В вашей строке не встречаются следующие буквы алфавита: г ё ж з м ц ш щ ъ э
Их количество равно: 10

[Ирина93]

Сообщение от veniside

В вашей строке не встречаются следующие буквы алфавита: г ё ж з м ц ш щ ъ э
Их количество равно: 10

мне бы ещё код программы

[veniside]

сорри, я в уме )

[Ирина93]

Сообщение от veniside

сорри, я в уме )

где?)

чё-то ещё надо было написать))

[Костя КС]

Сообщение от Ирина93

где?)

чё-то ещё надо было написать))

Это уже наглость, конечно.
Но у меня есть почти готовый код.

program lb1;
var
ch1 : set of 'а'..'я';
ch2 : set of 'а'..'я';
s   : string;
i   : byte;

begin
ch1 := ['а'..'я'];
ch2 := [];

readln(s);
s := LowerCase(s);
for i := 1 to length(s) do ch2 := ch2 + [s[i]];

for i := ord('а') to ord('я') do
 if (chr(i) in ch1)and(not (chr(i) in ch2)) then write(chr(i),' ');
end.

Осталось количество подсчитать.