Дана строка s определить какой процент слов в ней оканчивается ** букву л.

Question

Дана строка s определить какой процент слов в ней оканчивается на букву л.

Answer 1

// 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%

Answer 2

//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

Comments

Ах, процент? Сейчас.