Ответы
Ответ дал:
0
//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
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
Ответ дал:
0
Ах, процент? Сейчас.
Ответ дал:
0
// 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%
begin
var s:=ReadlnString('Введите строку:').ToWords;
Writeln(s.Where(w->RightStr(w,1)='л').Count/s.Count*100:6:2,'%')
end.
Тестовое решение
Введите строку: Вася шел и что-то напевал
40.00%
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад