Ответы
Ответ дал:
1
Ответ:
Потоковый ввод-вывод из консоли: https://ideone.com/nz8goV
С использованием файлов: https://ideone.com/gIZ3O0
Объяснение:
Отступы полетели, залил в онлайн-IDE.
BobbyFresnel:
И еще, я участвую в проекте, в котором рассматриваются преимущества языка PascalABC.NET для решения школьных и олимпиадных задач, Вы позволите Ваш код использовать, чтобы показать, насколько Пайтон проигрывает этому языку?
Естественно, со ссылкой на этот ресурс.
Допустим
Какой-то неопределеннй ответ. Либо да, либо нет. Для нас половинчатое решение равносильно отказу: мы не хотим нарушать чьи либо права.
Да
Спасибо
Вот, если интересно, решение этой задачи на Паскале (без файлов). С файлами длиннее на пару строк.
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.
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.
Упс... местные чудеса. Съелись после Dictionary в угловых скобках integer, integer
Никогда не любил Pascal
Вас заинтересует
1 год назад
1 год назад
1 год назад
3 года назад
3 года назад
8 лет назад