Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var s:=ReadlnString('Введите строку:').ToUpper.
TakeWhile(c->c<>'.').Where(c->c in ['A'..'Z']);
var d:=new dictionary<char,integer>;
foreach var c in s do d[c]:=d.Get(c)+1;
var d1:=d.OrderByDescending(k->k.Value).ThenBy(k->k.Key);
var r:=d1.ElementAt(0);
Println(r.Key,r.Value)
end.
Тестовое решение:
Введите строку: It is not a simple task. Yes!
I 3
begin
var s:=ReadlnString('Введите строку:').ToUpper.
TakeWhile(c->c<>'.').Where(c->c in ['A'..'Z']);
var d:=new dictionary<char,integer>;
foreach var c in s do d[c]:=d.Get(c)+1;
var d1:=d.OrderByDescending(k->k.Value).ThenBy(k->k.Key);
var r:=d1.ElementAt(0);
Println(r.Key,r.Value)
end.
Тестовое решение:
Введите строку: It is not a simple task. Yes!
I 3
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад