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

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

//Pascal ABC.NET 3.1 сборка 1256Var s:string; k:real;beginreadln(s);var ars:=s.Split;foreach var x in ars doif x[length(x)]='л' then k:=k+1;k:=k/(length(ars)/100);writeln(k);end.Пример ввода:Съел что-то лолПример вывода:66.6666666666667

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var s:=ReadlnString('Введите строку:').ToWords;  Writeln(s.Where(w->RightStr(w,1)='л').Count/s.Count*100:6:2,'%')end.Тестовое решениеВведите строку: Вася шел и что-то напевал 40.00%