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

[sasharom97]

2.Описать процедуру, которая печатает все буквы, входящие в строку менее К раз, с указанием количества вхождений.
Помогите пожалуйста исправить или что не дописал.

1.

uses crt;
var i: integer;
    s: string;
    b: char;
 
function Kolslov(z:string; y:char):integer;
var sl:string;
    e,j,k,kk:integer;
begin
z:=z+' '; sl:='';
for e:=1 to length(z) do
    if z[e]<>' ' then sl:=sl+z[e] else
       if length(sl)>0 then
          begin
          k:=0;
          for j:=1 to length(sl) do
              if sl[j]=y then inc(k);
          if k>0 then inc(kk);
          sl:='';
          end;
Kolslov:=kk;
end;
 
 
begin
write('s=');
readln(s);
write('b=');
readln(b);
write('В ',Kolslov(s,b),' словах есть символ ',b);
readln;
end.

2. program Twwo;
 
uses crt;
 
var s: string;
    i: integer;
    c: char;
    p: array ['a'..'z'] of integer;
    f: boolean;
begin
for c := 'a' to 'z' do p[c] := 0;
writeln('Enter string:');
readln(s);
i := 1;
while ((s[i] <> '.') and (i <= length(s))) do begin
  if s[i] in ['a'..'z'] then p[s[i]] := p[s[i]] + 1;
  i := i + 1;
end;
f := false;
for c := 'a' to 'z' do if p[c] >= 2 then f := true;
if f
  then begin
    write('>= 2 symbols: ');
    for c := 'a' to 'z' do if p[c] >=2 then write(c);
    writeln;
  end
  else writeln('Not found');
readln;
end.

[alex234]

Задача 2.
Ты нигде не вводишь K; в твоём примере K=2 и выводятся буквы которые встречаются >=2, а по условию нужно <K.

После readln(s) можно добавить:

Write('K= '); ReadLn(k);

А вместо твоего алгоритма выбора (от f:=false) я б написал что-то вроде:

Write('>k: ');
For c:='a' to 'z' do
  If (p[c]<>0) AND (p[c]<k) then Write(c,'(',p[c],') ');

[Stilet]

Не пойму, чем код-то не устроил?