Строки

[f4rr3l]

Парни у кого есть время помогите со строками.
Первый пуркт я сделал а вот второй не выходит пожалуйста помогите сделать.

1. - Подсчитать сколько раз в строке встречается звонкая согласная.
1.1 - Вывести все звонкие согласные буквы, которые не входят ни в одно нечетное слово и входят в каждое четное слово.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var 
  s,sl: string; 
  k,i: integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Введите строку:');
  ReadLn(s);
  Write('Введите звонкую согласную которую вы хотите узнать сколько раз она встречается в строке (Б, В, Г, Д, Ж, З, К, Л, М, П, Р, С, Т): ');
  ReadLn(sl); 
  k:=0;
  while pos(sl,s)>0 do 
  begin k:=k+1; 
    delete(s,pos(sl,s),length(sl)); 
  end; 
WriteLn(k);
end.

[Monte-Kristo]

Ты где это задание брал?))) У меня на практике такое же было...)))))

[f4rr3l]

Это моя лаба

[Gongled]

Вроде оно. Если есть ошибки — говорите.

// 1. - Подсчитать сколько раз в строке встречается звонкая согласная.
// 1.1 - Вывести все звонкие согласные буквы, которые не входят
// ни в одно нечетное слово и входят в каждое четное слово.

program pr;
uses CRT;
type
  myarray = array['А'..'Я'] of boolean;
  symbol = set of char;
var
  a, b : myarray;
  i, k, j : integer;
  mn : symbol;
  s : string;
  c, sl : char;
  
begin
clrscr;

// Множество согласных звонких букв
mn := ['Б', 'В', 'Г', 'Д', 'Ж', 'З', 'К', 'Л', 'М', 'П', 'Р', 'С', 'Т'];
k := 1;

write('Введите строку: ');
read(s);

// Вводить до тех пор, пока не будет корректной согласной
repeat
write('Введите интересующую звонкую согласную: ');
read(sl);
until sl in mn;

for c:='А' to 'Я' do
begin
    // Предположим, все символы нам подходят
    a[c] := true;
    b[c] := true;
end;

while i<>length(s) do
begin
    inc(i);

    // Если встретим пробел, то прибавляем счётчик слов
    // и прибавляем к счётчику символов единицу
    if s[i]=' ' then
    begin
        inc(k);
        inc(i);
    end;
    
    //Переводим в верхний регистр
    c := upcase(s[i]);
    
    if k mod 2=1 then
    begin
        // Если буква в нечётном слове входит в множество,
        // то она не может претендовать (или не претендовать) на искомую букву
        if (c in mn) then a[c] := false;
    end
    else
    begin
        // Если буква в чётном слове входит в множество,
        // и она нас уже не устраивает так как встречается в нечётном слове,
        // то она нас уже точно не интересует.
        if (c in mn) and (not a[c]) then b[c] := false;
    end;
    
    // Считаем интересующую согласную
    if s[i]=sl then inc(j);
end;

// Вывод результатов
writeln('Результат: ');
writeln('Буква ',sl,' встречается в строке ',j,' раз.');

writeln('Список символов: ');
for c:='А' to 'Я' do
begin
    // Если буква входит в множество и удволетворяет обеим условиям
    // и существует в слове, то выводим её
    if (c in mn) and a[c] and b[c] and (pos(c,s)<>0) then writeln(c);
end;

end.

f4rr3l, зачем для подсчёта символов удалять их из строки?

P.S. Сильно не бейте. Я ещё школий :'-)

[f4rr3l]

Gongled, спасибо, вроде все верно.

[Somebody]

А это ничего, что К, П, С являются глухими (а в паре с ними звонкие Г, Б, З), а также ещё Й звонкая?