1) найти кол-во слов в строке
2) найти процентное содержание пробелов
в строке
3) частота встречаемости символа «а» в
строке

var s:string;

i,kol_prob, kol_a:integer;

begin

 write('Введите предложение: ');

 readln(s);

 writeln('Длина строки: ',s.Length);

 for i:= 1 to s.Length do

 begin

   if s[i] = ' ' then

     kol_prob := kol_prob + 1;

   if s[i] = 'а' then

     kol_a := kol_a + 1;

 end;

 writeln('Пробелов в тексте: ', (kol_prob / s.Length * 100):5:2,'%');

 writeln('Частота "а" в тексте: ', (kol_a / s.Length):5:2);

end.

Объяснение:

Написано в PascalABC.