Вывести латинскую букву, встречающуюся во входной последовательности наибольшее число раз

@Fossil121 · Регистрация: 29.06.2016

Студворк — интернет-сервис помощи студентам

На вход программе подаётся последовательность символов, заканчивающаяся символом "#". Другие символы "#" во входной последовательности отсутствуют.
Программа должна вывести на экран латинскую букву, встречающуюся во входной последовательности наибольшее кол-во раз и число этих раз(во второй строке).
Если таких букв во входной последовательности окажется несколько, программа должна вывести на экран всех их, через пробел, в алфавитном порядке.
Строчные и прописные буквы не различаются.
Пример входных данных:
Day, mice. "Year" - a mistake#
Пример выходных данных:
А
4
Другой вариант:
Пример входных данных:
ABCD ABCE ABCF#
Пример выходных данных:
A B C
3
Пожалуйста, напишите, как работает ваша программа(по желанию).

@JuriiMW · 15.05.2018, 06:16

Pascal

begin
  var u:=ReadLnString.ToUpper.Where(c->Char.IsLetter(c)).GroupBy(c->c).OrderBy(v->v.count).Last;
  WriteLn(u.Key,NewLine,u.Count);
end.

@Joy · 15.05.2018, 08:18

Pascal

var
  a:array[char] of integer;
  c:char;
  m:integer;
begin
  write('>');
  m:=0;
  repeat
     read(c);
     c:=uppercase(c);
     if c in ['A'..'Z'] then inc(a[c]);
     if a[c]>m then m:=a[c];
  until c='#';
  for c:='A' to 'Z' do if a[c]=m then write(c,' ');
  writeln;
  writeln(m);
end.

@volvo · 15.05.2018, 09:48

JuriiMW, твой вариант нерабочий, он не выдает ВСЕ буквы "A B C" на втором тесте, выдает только "C"

Вот так на обоих приведенных тестах и на десятке других выдало правильный результат:

Pascal

begin
  var u := ReadlnString.ToUpper.Where(c -> Char.IsLetter(c)).
    GroupBy(c -> c).GroupBy(g -> g.Count).OrderBy(v -> v.First.Count).Last;
  WriteLn(u.Select(t -> t.First).JoinIntoString(' '), NewLine, u.First.Count);
end.

@Fossil121 0 / 0 / 1 Регистрация: 29.06.2016 Сообщений: 110
		1
	Вывести латинскую букву, встречающуюся во входной последовательности наибольшее число раз 14.05.2018, 17:54. Показов 2179. Ответов 3 Метки нет (Все метки) На вход программе подаётся последовательность символов, заканчивающаяся символом "#". Другие символы "#" во входной последовательности отсутствуют. Программа должна вывести на экран латинскую букву, встречающуюся во входной последовательности наибольшее кол-во раз и число этих раз(во второй строке). Если таких букв во входной последовательности окажется несколько, программа должна вывести на экран всех их, через пробел, в алфавитном порядке. Строчные и прописные буквы не различаются. Пример входных данных: Day, mice. "Year" - a mistake# Пример выходных данных: А 4 Другой вариант: Пример входных данных: ABCD ABCE ABCF# Пример выходных данных: A B C 3 Пожалуйста, напишите, как работает ваша программа(по желанию). 0

Опции темы

Вывести латинскую букву, встречающуюся во входной последовательности наибольшее число раз

Решение