Задана строка. Определить какие русские строчные буквы не входят в эту строку.

Question

Игорь Иванов · Accepted Answer

Алгоритм такой.
Берём в качестве массива данных русский алфавит из строчных букв. Берём первую букву заданной строки. Проверяем, есть ли она в массиве - алфавите. Если есть - удаляем её из массива. Переходим к следующей букве заданной строки и проделываем с ней то же самое. Так делаем для всех букв заданной строки. В итоге в массиве данных останутся только те русские строчные буквы, которых нет в заданной строке.

Таня Винокурова · Answer

var

i,d,r:integer;
s,alf:string;
p:array[1..33] of integer;

begin
 alf:=('абвгдеёжзийклмнопрстуфхцчшщъыьэюя');
 writeln('Исходный текст:: ');
 readln(s);
 d:=length(s);
 for i:=1 to d do
 begin
 r:=pos(s[i],alf);
 if r>0 then p[r]:=1;
 end;
 writeln('Отсутствующие в тексте строчные буквы:: ');
 for i:=1 to 33 do
 if p[i]=0 then write(alf[i]);

End.