М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
avgbb
avgbb
17.11.2020 07:08 •  Информатика

Wars. кодом активации к сверхновой игре «underground wars» является натуральное число. на запрос сервер посылает код, но почему-то не один, а несколько. но какой из них настоящий? герой олимпиады василий пупкин решил, что настоящий код состоит из цифр, в соответствующем разряде встречаются чаще всех присланных кодов. если такую цифру определить однозначно невозможно, настоящий код содержит в этом разряде цифру 0. например, если сервер прислал коды 234, 244 и 354, настоящий код будет 204, так как в разряде единиц все цифры одинаковые, десятки - установить невозможно, сотни-цифры 2, так как случается чаще всего. васе найти верный код и активировать игру. технические условия. программа wars читает с устройства стандартного ввода количество кодов n (2 < = n < = 100) и далее через пробел n натуральных чисел, не больше 109 - полученные коды. программа выводит на устройство стандартного вывода единственное число - настоящий код. если в отдельных кодах не хватает цифр, считать их нулями. незначащие нули в старших разрядах выводить не нужно. примеры ввод вывод 3 234 244 354 204 ввод вывод 3 122 33 43 3 ввод вывод 4 2 2 4 4 0

👇
Ответ:
7Настася7
7Настася7
17.11.2020
Пример решения на Python:

N = [int(input()) for i in range(int(input()))]
result = ''
while max(N) != 0:
Grid = [0] * 10
for i in range(len(N)):
if N[i] != 0:
temp = N[i] % 10
N[i] //= 10
Grid[temp] += 1
else:
temp = 0
Grid[temp] += 1
temp = int(max(Grid))
if Grid.count(temp) == 1:
temp = Grid.index(temp)
result = str(temp) + result
else:
result = '0' + result
if result == '0':
print(0)
else:
print(int(result))

Нужно только пробелы правильно расставить 
4,7(44 оценок)
Открыть все ответы
Ответ:
a4m4u4r4
a4m4u4r4
17.11.2020
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше
4,4(97 оценок)
Ответ:
Maguire
Maguire
17.11.2020
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше
4,5(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ