1) Найти кол-во слов в строке
2) Найти процентное содержание пробелов
в строке
3) Частота встречаемости символа «а» в
строке
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад