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

Задача 24 ЕГЭ Информатика. Основная волна экзамена 2023 (№ 6676) (ЕГЭ-2023) Текстовый файл 24-264.txt состоит не более чем из 106 символов и содержит только заглавные буквы латинского алфавита и цифры. Определите максимальную длину подстроки, которая может являться записью числа в шестнадцатеричной системе счисления. Видео разбор задания: dzen.ru/...a71

(№ 7075) (PRO100-ЕГЭ) В терминологии сетей TCP/IP маской сети называют двоичное число, которое показывает, какая часть IP-адреса узла сети относится к адресу сети, а какая – к адресу узла в этой сети. Адрес сети получается в результате применения поразрядной конъюнкции к заданному адресу узла и маске сети. Сеть задана IP-адресом 192.168.32.160 и маской сети 255.255.255.240. Сколько в этой сети IP-адресов, для которых количество нулей в двоичной записи IP-адреса больше 21? Решение на pascalabc.net и python:

(№ 7006) (А. Минак) В терминологии сетей TCP/IP маской сети называют двоичное число, которое показывает, какая часть IP-адреса узла сети относится к адресу сети, а какая - к адресу узла в этой сети. Адрес сети получается в результате применения поразрядной конъюнкции к заданному адресу узла и маске сети. Сеть задана IP-адресом 216.130.64.0 и маской сети 255.255.192.0. Сколько в этой сети IP-адресов, которые не имеют ни одного байта с нечётным значением? IP-адрес сети учитывать не следует. Решение на pascalabc.net and python:

14 номер ЕГЭ по информатике. Основная волна экзамена 2023. (№ 6744) (ЕГЭ-2023) Операнды арифметического выражения записаны в системе счисления с основанием 23:   7x3859623 + 14х3623 + 61x723 В записи чисел переменной x обозначена неизвестная цифра из алфавита 23-ричной системы счисления. Определите наименьшее значение x, при котором значение данного арифметического выражения кратно 22. Для найденного значения x вычислите частное от деления значения арифметического выражения на 22 и укажите его в ответе в десятичной системе счисления. Основание системы счисления указывать не нужно. Решение на PascalABC.NET: ## uses school; {1 способ решения} var s := ('0'..'9').JoinToString + ('A'..'M').JoinToString; s.Select(x -> Dec($'7{x}38596', 23) +    Dec($'14{x}36', 23) +    Dec($'61{x}7', 23)). Where(x -> x mod 22 = 0). Select(x -> x div 22).Take(1).println; {2 способ решения} var (sum, p) := (0bi, 23bi); for var x := 0 to 22 do begin  sum := 7 * p ** 6 + x * p ** 5 + 3 * p ** 4 + 8 * p ** 3 + 5 * p ** 2 + 9 * p ** 1 + 6 +    1 * p ** 4 + 4 * p ** 3 + x * p ** 2 + 3 * p + 6 +    6 * p ** 3 + 1 * p ** 2 + x * p + 7;  if sum mod 22 = 0 then   print(sum div 22); end; Решение на python: s = '0123456789' for i in range(10,23):  s+=chr(55+i) for x in s:  a = int(f'7{x}38596', 23) + int(f'14{x}36', 23) + int(f'61{x}7', 23)  if a % 22 == 0:   print(a // 22)

№23 решаем задачу 6024 с сайта Полякова КЕГЭ . Рекурсия Условия задачи: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ (И. Карпачев) Исполнитель Калькулятор преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены коды: A. Прибавь 2 B. Умножь на 2 С. Умножь на 4 Первая команда увеличивает число на 2 раза, вторая – в 2 раза, третья – в 4 раза. Программа для исполнителя – это последовательность команд. Сколько существует программ, для которых при исходном числе 1 результатом будет являться число 24, при этом траектория вычисления не содержит подпоследовательность команд BACA.Траектория вычисления программы – это последовательности результатов выполнения всех команд. Например, для программы BCA при исходном числе 4 траектория будет состоять из чисел 8, 32, 34. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Задача №08.6132 (Комбинаторика) *Определите количество семизначных чисел, записанных в девятеричной системе счисления, в записи которых ровно одна цифра 8 и ровно четыре нечётные цифры.

ЕГЭ Информатика 17. Задача 6096 сайт Полякова. Обработка последовательности Pascal vs Python Условия задачи 17.362.6096: (Д. Статный) В файле 17-362.txt содержится последовательность целых чисел, записанных в позиционных системах исчисления с основаниями от 2 до 36 (для систем с основаниями, большими 10, в качестве цифр используются буквы A, B, C, ..., Z). Будем считать, что основание системы счисления на единицу больше, чем максимальная цифра числа (например, для числа 1A42 основание системы счисления равно A + 1 = 10 + 1 = 11). Парой назовём два подряд идущих элемента последовательности. Определите количество пар, в которых основания систем счисления, в которых записаны числа, отличаются не более чем на 2. В ответ запишите сначала количество таких пар, а затем — максимальную сумму элементов пары (в десятичной системе счисления).

№17 ЕГЭ Информатика. Задача 6071 сайт Полякова. Обработка последовательности Pascal vs Python Условия задачи: (И. Митин) В файле 17-361.txt содержится последовательность натуральных чисел, по модулю не превышающих 100000. Определите количество троек последовательности, в которых дав элемента равны между собой, а третий отличается от них, и все элементы тройки больше минимального элемента последовательности, оканчивающегося на 40. В ответе запишите количество таких троек и максимальный порядковый номер элемента, отличного от остальных. Считается, что нумерация элементов последовательности начинается с 1, а под тройкой подразумевается три идущих подряд элемента последовательности.

Задача №14 (6010) (И. Карпачев) Дано арифметическое выражение: 57Ax9(16) · 54x(8) В записи чисел переменной x обозначена неизвестная цифра. При каком наибольшем значении переменной х, сумма цифр значения этого выражения, записанного в 12-ричной системе счисления, равна 40? В ответе для найденного значения x укажите значение выражения в десятичной системе счисления. Основание системы счисления в ответе указывать не нужно. Решение: ## uses school; for var x:=0 to 7 do begin  var a:=5*16bi**4 + 7*16bi**3+10*16bi**2+x*16+9;  var b:=5*8bi**2+4*8+x;  var q:=a*b;  var s:=ToBase(q,12);  //println(s);  {1 способ подсчета суммы}  var sum:=0bi;  while q<>0 do  begin   sum+=q mod 12;   q:=q div 12;  end;  if sum = 40 then    println(x,a*b);  {2 способ подсчета суммы}  if s.Where(x->x.IsDigit).Select(y->y.ToDigit).Sum +    s.CountOf('A')*10+s.CountOf('B')*11 = 40 then  println(x,a*b); end;

pascalabc.net vs python при решении 25 номера КЕГЭ. Задача №25 Среди натуральных чисел, превышающих 10^9, найдите 5 наименьших чисел, соответствующие маске 1*2*7*04 и имеющих ровно 45 делителей. В ответе запишите в первом столбце таблицы все найденные числа в порядке возрастания, а во втором столбце – соответствующие им максимальные делители, не считая самого числа.

Решить задачу без использования (условного оператора) IF Дана строка. Если в ней нечётное число символов, добавьте плюс. Ввод -> Вывод привет -> привет мир -> мир+

Макс привёз из Марокко настоящий берберский ковёр и решил разыграть его между друзьями. Он загадал «число ковра». Ковёр достанется тому, кто первым его угадает. Ни у кого не получилось, и Макс дал подсказку. Если разделить загаданное число на 5, а из частного вычесть 4, получится число из трёх одинаковых чисел, записанных слитно. Если затем взять одну из этих трёх частей, извлечь корень и прибавить 1, получится N. Дано число N. Выведите «число ковра». Ввод -> Вывод 3 -> 2240