Информатика Сегодня

Задание №9 по информатике с Единой городской контрольной работы в декабре 2025 года в Москве Условие задачи: ------------------------------------------------------------------- (№ 8582) (ЕГКР-2025) В файле электронной таблицы 9-263.ods в каждой строке записаны семь целых чисел. Определите количество строк таблицы, для которых выполнены оба условия: – в строке есть одно число, которое повторяется трижды, остальные четыре числа различны; – максимальное число строки не повторяется. В ответе запишите только число. ------------------------------------------------------------------- Решение на python: k = 0 for s in open('9.txt'):   l = [int(x) for x in s.split()]   l3 = [x for x in l if l.count(x)==3]   l1 = [x for x in l if l.count(x)==1]   u1 = len(l3)==3 and len(l1)==4   u2 = l.count(max(l)) == 1   if u1 and u2:    k+=1 print(k) * * * Решение на PascalABC.NET: ## var k:=0; foreach var s in ReadAlllines('9.txt') do begin  var l:=s.TOIntegers.ToList;  var l3:=l.Where(t->l.countof(t)=3).count=3;  var l1:=l.Where(t->l.countof(t)=1).count=4;  var u1:=l1 and l3;  var u2:=l.countof(l.max)=1;  if u1 and u2 then   k+=1 end; k.print; Ответ: 1595

🌟 12 задание Информатика ЕГЭ задача № 8425 с сайта Полякова К.Ю. t.me/...inf Условие задачи 😳 ------------------------ На ленте исполнителя МТ в соседних ячейках записано двоичное представление целого положительного числа без ведущих нулей. Ячейки справа и слева от последовательности заполнены пустыми символами «λ». В начальный момент времени головка расположена в ближайшей справа от последовательности ячейке. Программа для исполнителя: λ   0   1 q0   λ, L, q1   -   - q1   λ, S, q1   1,L, q1   0,L, q1 Команды движения каретки: L – влево, R – вправо, N – отсутствие сдвига, S – стоп. После выполнения программы на ленте оказалась двоичная запись числа 156. Определите десятичное значение наибольшего числа, меньшего, чем 10000, которое могло быть записано на ленте до начала работы программы. Код на python: for i in range(9999, 0, -1):    s = bin(i)[2:]    # инвертируем строку    s2 = ''.join('1' if t == '0' else '0' for t in s)    if int(s2, 2) == 156:    print(i)    break Код на PascalABC.NET: RAnge(9999,1,-1) .Where(s->dec(bin(s).Select(t->t='0'?'1':'0').joinToString,2) = 156) .first .print; ✨Ответ: 8035