Решить задачу на python​

Приложения:

Ответы

Ответ дал: ggrriivvuuss
1

Ответ:

Потоковый ввод-вывод из консоли: https://ideone.com/nz8goV

С использованием файлов: https://ideone.com/gIZ3O0

Объяснение:

Отступы полетели, залил в онлайн-IDE.


BobbyFresnel: И еще, я участвую в проекте, в котором рассматриваются преимущества языка PascalABC.NET для решения школьных и олимпиадных задач, Вы позволите Ваш код использовать, чтобы показать, насколько Пайтон проигрывает этому языку?
BobbyFresnel: Естественно, со ссылкой на этот ресурс.
ggrriivvuuss: Допустим
BobbyFresnel: Какой-то неопределеннй ответ. Либо да, либо нет. Для нас половинчатое решение равносильно отказу: мы не хотим нарушать чьи либо права.
ggrriivvuuss: Да
BobbyFresnel: Спасибо
BobbyFresnel: Вот, если интересно, решение этой задачи на Паскале (без файлов). С файлами длиннее на пару строк.
BobbyFresnel: begin
var D := new Dictionary;
foreach var t in ReadArrInteger(ReadlnInteger) do
if D.ContainsKey(t) then
D[t] +=1
else
D.Add(t,1);
var b := D.OrderByDescending(p -> p.Value).Take(2).ToArray;
if b[0].Value > b[1].Value then
Println(b[0].Key)
else
Println(0)
end.
BobbyFresnel: Упс... местные чудеса. Съелись после Dictionary в угловых скобках integer, integer
ggrriivvuuss: Никогда не любил Pascal
Вас заинтересует