Дана строка s определить какой процент слов в ней оканчивается на букву л.
Дана строка s определить какой процент слов в ней оканчивается на букву л.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
k:real;
begin
readln(s);
var ars:=s.Split;
foreach var x in ars do
if x[length(x)]='л' then k:=k+1;
k:=k/(length(ars)/100);
writeln(k);
end.
Пример ввода:
Съел что-то лол
Пример вывода:
66.6666666666667
Гость// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var s:=ReadlnString('Введите строку:').ToWords;
Writeln(s.Where(w->RightStr(w,1)='л').Count/s.Count*100:6:2,'%')
end.
Тестовое решение
Введите строку: Вася шел и что-то напевал
40.00%
Не нашли ответ?
Похожие вопросы