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.
