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

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


textual

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

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



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь