• Рядом с каждой вершиной проставим количество ребер вершины (степень вершины). Кроме того, граф симметричен:



• Поскольку уникальная вершина здесь только одна, и она находится в центре, то рассмотрим остальные вершины. Все остальные вершины и имеют степень 3, кроме вершин А и B, которые имеют степень 2:

B = 2(D3,C6)
A = 2(G3,C6)

• Найдем эти вершины в таблице: пункты 2 и 6.
• По таблице видим, что на пересечении данных пунктов находятся пункты 7 и 4, соответствующие вершинам D3 и G3.
• Так как вершине C соответствует единственный уникальный пункт 1, то в таблице остаются только пункт 3 и 5, которые и соответствуют вершинам E и F.

Ответ: 35

✎ Теоретическое решение:

✎ Программное решение:
Язык pascalABC.NET (классический):

begin writeln('x y z w'); for var x := false to true do for var y := false to true do for var z := false to true do for var w := false to true do begin var f := not ((x and not y) or (y = z) or not w); if f then println(Ord(x), Ord(y), ord(z), ord(w)) end; end.

begin writeln('x y z w'); for var x := false to true do for var y := false to true do for var z := false to true do for var w := false to true do begin var f := not ((x and not y) or (y = z) or not w); if f then println(Ord(x), Ord(y), ord(z), ord(w)) end; end.

Язык pascalABC.NET (LINQ):

## uses school; var t:=TrueTable((x,y,z,w)->(x and not y)or(y = z)or not w); TrueTablePrint(t,0,'xyzw'); // 0 так как для лжи

## uses school; var t:=TrueTable((x,y,z,w)->(x and not y)or(y = z)or not w); TrueTablePrint(t,0,'xyzw'); // 0 так как для лжи

Python:

# создадим функцию для вычисления значения логического выражения def f(x, y, z, w): return (x and not y) or (y == z) or not w from itertools import * # перебор всех пробелов for a1, a2, a3, a4 in product([0, 1], repeat=4): # все наборы t = [(a1,a2,0,0),(1,0,a3,0),(1,0,1,a4)] # проверяем все ли наборы уникальны if len(set(t)) != len(t): continue # перебор всех перестановок имен столбцов for p in permutations('xyzw'): # проверка на совпадение результата if [f(**dict(zip(p,r))) for r in t]==[0,0,0]: print(*p, sep='')

# создадим функцию для вычисления значения логического выражения def f(x, y, z, w): return (x and not y) or (y == z) or not w from itertools import * # перебор всех пробелов for a1, a2, a3, a4 in product([0, 1], repeat=4): # все наборы t = [(a1,a2,0,0),(1,0,a3,0),(1,0,1,a4)] # проверяем все ли наборы уникальны if len(set(t)) != len(t): continue # перебор всех перестановок имен столбцов for p in permutations('xyzw'): # проверка на совпадение результата if [f(**dict(zip(p,r))) for r in t]==[0,0,0]: print(*p, sep='')

• Задание можно выполнить использую опцию Фильтр в Excel.
• Перейдем в лист Товары. Выделим полностью первую строку и применим к ней фильтр (меню Данные — Фильтр).
• В фильтре для столбца С с товарами выбираем сначала Выделить всё (чтобы отменить все выделения), а затем — только значения, связанные с зефиром:



• Получаем в результате записи, запоминаем артикулы (4,5,6,7):



• Переходим на лист с Магазинами и отфильтровываем точно так же записи для улицы Металлургов, запоминаем ID магазинов (М2, М16):



• Переходим на лист Движение товаров. Ставим фильтр полностью на первую строку. Наложим фильтр на поле ID магазина — выбираем М2 и М16, и Артикул — 4, 5, 6, 7. Затем используем фильтр для поля «тип операции» (выбираем значение «поступление») и для поля «дата» (выбираем значения от 3 до 14 июня):



• Для подсчета общей массы:
• отсортируем полученные данные по значению артикула;
• подсчитаем сумму упаковок каждого артикула: выделяем соответствующие ячейки и смотрим в строку состояния;
• переходим на лист Товар и копируем данные о кол-ве в упаковке;
• В полученной таблицы проводим расчёт (Кол-во упаковок * кол-во в упаковке / 1000):

Ответ: 3570

Для решения используем дерево. Влево откладываем 0, вправо — 1:

Для букв Ж и З имеем кодовые слова: 100 и 11. Суммарная длина = 5.

Ответ:

✎ Программное решение:

Язык pascalABC.NET (классический): uses school; begin var l := new List<integer>; for var n_:=10 to 1000 do begin var n:=n_; var n2:=bin(n).ToString; if n.Divs(3) then n2+=(n2[n2.Length-2]+ n2[n2.Length-1]+n2[n2.Length]) else n2+= bin((n mod 3)*3); var r:=dec(n2,2); if r>151 then l.Add(r) end; l.Min.Print; end. uses school; begin var l := new List<integer>; for var n_:=10 to 1000 do begin var n:=n_; var n2:=bin(n).ToString; if n.Divs(3) then n2+=(n2[n2.Length-2]+ n2[n2.Length-1]+n2[n2.Length]) else n2+= bin((n mod 3)*3); var r:=dec(n2,2); if r>151 then l.Add(r) end; l.Min.Print; end.

Python: res = set() for x in range(1, 152): nx = bin(x)[2:] if x % 3 == 0: nx += nx[-3: ] else: nx += bin((x%3) * 3)[2:] R = int(nx, 2) if R > 151: res.add(R) print(min(res)) res = set() for x in range(1, 152): nx = bin(x)[2:] if x % 3 == 0: nx += nx[-3: ] else: nx += bin((x%3) * 3)[2:] R = int(nx, 2) if R > 151: res.add(R) print(min(res))

Ответ: 163

Задание 1:
• Запустите программу Кумир.
• В окне редактора введите код для Черепахи:



использовать Черепаха
алг
нач
 цел а
 опустить хвост
 нц для а от 1 до 7
   вперед(10)
   вправо(120)
 кц
кон

• Настройте сетку:



• Посчитаем точки:

✎ Программное решение:

Python:

from turtle import *
# увеличиваем масштаб в 20
tracer(0)
lt(90)
pd()
for _ in range(7):
 fd(10*20)
 rt(120)
up()
# рисуем точки с учетом масштаба (_* 20)
for x in range(20):
 for y in range(20):
  goto(x*20, y*20)
  dot(5)
update()

Ответ: 38

Задание 2:
✎ Программное решение:

Python:

from turtle import *
screensize(1200, 1200)
tracer(0)
lt(90)
pd()
for _ in range(2):
 fd(8*20)
 rt(90)
 fd(18*20)
 rt(90)
up()
fd(4*20); rt(90)
fd(10*20); lt(90)
down()
for _ in range(2):
 fd(17*20)
 rt(90)
 fd(7*20)
 rt(90)
up()
for x in range(30):
 for y in range(30):
  goto(x*20, y*20)
  dot(5)
update()

Ответ: 275

• По формуле объема файла изображения имеем:
I = N * i

где N — общее количество пикселей или разрешение,
а i — глубина цвета (количество бит, выделенное на 1 пиксель)

• Глубину цвета можно найти из формулы:
2ⁱ=кол-во цветов
• Из формулы имеем i = 12.
• Посчитаем объем, необходимый для передачи одной фотографии:

I = 1024*768*12 бит = 1024*768*12 / (8 * 1024 * 1024) Мбайт = 1.125 Мбайт

Теперь вычислим объем, необходимый для передачи пакета:

1.125 * 256 = 288 Мбайт

Ответ: 288

✎ Теоретическое решение:

✎ Программное решение:
Язык pascalABC.NET (классический):

## var count:=0; foreach var a1 in '1234567' do foreach var a2 in '01234567' do foreach var a3 in '01234567' do foreach var a4 in '01234567' do foreach var a5 in '01234567' do begin var number:=a1+a2+a3+a4+a5; if number.Count = number.Distinct.Count then if (number.countOf('1')=0) then if ((integer(a1)+integer(a2)).NotDivs(2)) and ((integer(a2)+integer(a3)).NotDivs(2)) and ((integer(a3)+integer(a4)).NotDivs(2)) and ((integer(a4)+integer(a5)).NotDivs(2)) then begin count+=1; //print(number); end; end; print(count)

## var count:=0; foreach var a1 in '1234567' do foreach var a2 in '01234567' do foreach var a3 in '01234567' do foreach var a4 in '01234567' do foreach var a5 in '01234567' do begin var number:=a1+a2+a3+a4+a5; if number.Count = number.Distinct.Count then if (number.countOf('1')=0) then if ((integer(a1)+integer(a2)).NotDivs(2)) and ((integer(a2)+integer(a3)).NotDivs(2)) and ((integer(a3)+integer(a4)).NotDivs(2)) and ((integer(a4)+integer(a5)).NotDivs(2)) then begin count+=1; //print(number); end; end; print(count)

Язык pascalABC.NET (LINQ):

## uses school; var numb:='01234567'.cartesian(5)// т.к. цифр 5 штук .where(w->w.First<>'0') // первая цифра не может быть 0 .where(w->w.count=w.distinct.count) .where(w->w.CountOf('1')=0) .where(w->w.Pairwise.All(\(a,b)-> ((integer(a)+integer(b))mod 2 <>0)))// проверка пар 6 и нечетное .count.print

## uses school; var numb:='01234567'.cartesian(5)// т.к. цифр 5 штук .where(w->w.First<>'0') // первая цифра не может быть 0 .where(w->w.count=w.distinct.count) .where(w->w.CountOf('1')=0) .where(w->w.Pairwise.All(\(a,b)-> ((integer(a)+integer(b))mod 2 <>0)))// проверка пар 6 и нечетное .count.print

• Откроем файл электронной таблицы. Будем считать, сколько встречается каждый ячейка первой строки в диапазоне всех ячеек первой строки. Для этого создадим формулы и расположим их также в первой строке:

H1 = СЧЁТЕСЛИ($A1:$G1;A1)

т.е. в диапазоне A1:G1 ищем А1. Знак доллара используется для фиксации буквы при копировании.
Скопируйте формулу на 6 ячеек вправо:

I1 = СЧЁТЕСЛИ($A1:$G1;B1)
J1 = СЧЁТЕСЛИ($A1:$G1;C1)
K1 = СЧЁТЕСЛИ($A1:$G1;D1)
L1 = СЧЁТЕСЛИ($A1:$G1;E1)
M1 = СЧЁТЕСЛИ($A1:$G1;F1)
N1 = СЧЁТЕСЛИ($A1:$G1;G1)

• Выделите диапазон ячеек с созданными формулами и щелкните по маркеру копирования (справа), чтобы скопировать формулы на нижние строки.



• Затем создадим формулы для поиска строк, в которых 2 пары повторяющихся чисел, то есть 4 двойки, и остальные числа не повторяются, т.е. 3 единицы. Вместо логического результата будем выводить 0 или 1. Будем использовать отдельно две формулы:

O1 = ЕСЛИ((СЧЁТЕСЛИ(H1:N1; 2) = 4);1;0)  
P1 = ЕСЛИ((СЧЁТЕСЛИ(H1:N1; 1) = 3);1;0) 



• Теперь найдем среднее арифметическое повторяющихся чисел и неповторяющихся чисел, чтобы в дальнейшем их сравнить. Будем использовать функцию СУММЕСЛИ для поиска двоек в диапазоне H:N, и последующего сложения соответствующих им ячеек диапазона A:G. Результат разделим на 4:

Q1 = СУММЕСЛИ(H1:N1; 2; A1:G1)/4

• Аналогичные вычисления выполним для поиска среднего арифметического неповторяющихся чисел:

R1 = СУММЕСЛИ(H1:N1; 1; A1:G1)/3

• Далее выполним сравнение средних арифметических и умножим результат на произведение результатов в O1 и P1. Таким образом, получим единицу, в случае выполнения всех условий и 0 — в обратном случае:

S = O1*P1*(Q1<R1)

• Скопируем формулу на весь столбец и посчитаем сумму по столбцу:

T = СУММ(S:S)

Ответ: 83

✎ Решение с использованием программирования:
✎ Программное решение:
Язык pascalABC.NET (классический):

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

begin var sum: biginteger; sum := 0; for var n := 4 to 9999 do begin var s := '5' + '2' * n; while ('52' in s) or ('2222' in s) or ('1122' in s) do begin if '52' in s then s := s.Replace('52', '11', 1); if '2222' in s then s := s.Replace('2222', '5', 1); if '1122' in s then s := s.Replace('1122', '25', 1); end; var numb := s.ToBigInteger; while numb > 0 do begin sum += numb mod 10; numb := numb div 10; end; if sum = 64 then print(n); sum := 0; end; end.

begin var sum: biginteger; sum := 0; for var n := 4 to 9999 do begin var s := '5' + '2' * n; while ('52' in s) or ('2222' in s) or ('1122' in s) do begin if '52' in s then s := s.Replace('52', '11', 1); if '2222' in s then s := s.Replace('2222', '5', 1); if '1122' in s then s := s.Replace('1122', '25', 1); end; var numb := s.ToBigInteger; while numb > 0 do begin sum += numb mod 10; numb := numb div 10; end; if sum = 64 then print(n); sum := 0; end; end.

Язык Python:

1 2 3 4 5 6 7 8 9 10 11 12 13

res = set() for n in range(10, 1000): s = '5' + '2'*n while '52' in s or '2222' in s or '1122' in s: if '52' in s: s = s.replace('52', '11', 1) if '2222' in s: s = s.replace('2222', '5', 1) if '1122' in s: s = s.replace('1122', '25', 1) if sum(map(int, s)) == 64 : res.add(n) print(max(res))

res = set() for n in range(10, 1000): s = '5' + '2'*n while '52' in s or '2222' in s or '1122' in s: if '52' in s: s = s.replace('52', '11', 1) if '2222' in s: s = s.replace('2222', '5', 1) if '1122' in s: s = s.replace('1122', '25', 1) if sum(map(int, s)) == 64 : res.add(n) print(max(res))

✎ Программное решение:
Язык pascalABC.NET (классический):

uses school; begin foreach var x in '0123456789abcdefghi'do begin var a:=('98897'+x+'21'); // строковое значение var b:=('2'+x+'923');// строковое значение var a1:= dec(a,19); // перевод в десятичную сс var b1:=dec(b,19); var s:=a1 + b1; if s mod 18 =0 then begin //print(x,s); print((s/18)); end; end; end.

uses school; begin foreach var x in '0123456789abcdefghi'do begin var a:=('98897'+x+'21'); // строковое значение var b:=('2'+x+'923');// строковое значение var a1:= dec(a,19); // перевод в десятичную сс var b1:=dec(b,19); var s:=a1 + b1; if s mod 18 =0 then begin //print(x,s); print((s/18)); end; end; end.

✎ Теоретическое решение:

✎ Программное решение:
Язык pascalABC.NET (классический):

begin for var A := 1 to 200 do begin var ok := 1; for var x := 1 to 500 do for var y := 1 to 500 do begin if (x + 2 * y < A) or (y > x) or (x > 60)=false then begin ok:=0; end; end; if ok=1 then print(a); end; end.

begin for var A := 1 to 200 do begin var ok := 1; for var x := 1 to 500 do for var y := 1 to 500 do begin if (x + 2 * y < A) or (y > x) or (x > 60)=false then begin ok:=0; end; end; if ok=1 then print(a); end; end.

✎ Программное решение:
PascalABC.NET:
Решается только с типом данных BigInteger!

1
2
3
4
5
6
7
8
9

function f(n: integer): biginteger;
begin
  if n > 2024 then result := n
  else result :=  n * f(n + 1);
end;
 
begin
  print(f(2022) / f(2024));
end.

Питон:

1
2
3
4
5
6

def f(n):
    if n>2024:
        return n
    else:
        return n*f(n+1)
print(f(2022)/f(2024))

C++:

1

Ответ: 4090506

✎ Программное решение:
Язык pascalABC.NET (классический):

## var a := ReadLines('17_2024.txt').Select(t -> t.ToInteger).ToArray; var counter := 0; var maxSum := 0; var m := 0; for var i := 0 to a.High do begin if a[i] mod 100 = 13 then m := max(a[i], m); end; for var i := 0 to a.High - 2 do begin if((a[i] in 100..999) and (a[i + 1] in 100..999) and (not (a[i + 2] in 100..999))) or ((a[i + 1] in 100..999) and (a[i + 2] in 100..999) and (not (a[i] in 100..999))) or ((a[i] in 100..999) and (a[i + 2] in 100..999) and (not (a[i + 1] in 100..999))) then if (a[i] + a[i + 1] + a[i + 2]) <= m then begin counter += 1; maxSum := max(maxSum, (a[i] + a[i + 1] + a[i + 2])); end; end; println(counter, maxSum)

## var a := ReadLines('17_2024.txt').Select(t -> t.ToInteger).ToArray; var counter := 0; var maxSum := 0; var m := 0; for var i := 0 to a.High do begin if a[i] mod 100 = 13 then m := max(a[i], m); end; for var i := 0 to a.High - 2 do begin if((a[i] in 100..999) and (a[i + 1] in 100..999) and (not (a[i + 2] in 100..999))) or ((a[i + 1] in 100..999) and (a[i + 2] in 100..999) and (not (a[i] in 100..999))) or ((a[i] in 100..999) and (a[i + 2] in 100..999) and (not (a[i + 1] in 100..999))) then if (a[i] + a[i + 1] + a[i + 2]) <= m then begin counter += 1; maxSum := max(maxSum, (a[i] + a[i + 1] + a[i + 2])); end; end; println(counter, maxSum)

Язык pascalABC.NET (классический):

## uses school; var a := ReadLines('17_2024.txt').Select(t -> t.ToInteger); var m:=a.where(x->x mod 100 = 13).max; var triples := a.NWise(3) .Where(\(a,b,c)->((a in 100..999) and (b in 100..999) and (not (c in 100..999 ))) or ((b in 100..999) and (c in 100..999) and (not (a in 100..999 ))) or ((a in 100..999) and (c in 100..999) and (not (b in 100..999 )))) .Where (\(a,b,c)-> a+b+c<=m); triples.Count.Print; var maxSum:=triples.Select(t->(t[0]+t[1]+t[2])).max.print;

## uses school; var a := ReadLines('17_2024.txt').Select(t -> t.ToInteger); var m:=a.where(x->x mod 100 = 13).max; var triples := a.NWise(3) .Where(\(a,b,c)->((a in 100..999) and (b in 100..999) and (not (c in 100..999 ))) or ((b in 100..999) and (c in 100..999) and (not (a in 100..999 ))) or ((a in 100..999) and (c in 100..999) and (not (b in 100..999 )))) .Where (\(a,b,c)-> a+b+c<=m); triples.Count.Print; var maxSum:=triples.Select(t->(t[0]+t[1]+t[2])).max.print;

Язык pascalABC.NET (классический): 1 2 3 4 5 6 7 8 9 10 11 12 begin var x: biginteger; x := 2024; while x <= 10000000000 do begin if(x.ToString[1] = '1') and (x.ToString[3] = '2') and (x.ToString[4] = '1') and (x.ToString[5] = '5') and (x.ToString[6] = '7') and (x mod 10 = 4) then println(x, x / 2024); x += 2024; end; end. begin var x: biginteger; x := 2024; while x <= 10000000000 do begin if(x.ToString[1] = '1') and (x.ToString[3] = '2') and (x.ToString[4] = '1') and (x.ToString[5] = '5') and (x.ToString[6] = '7') and (x mod 10 = 4) then println(x, x / 2024); x += 2024; end; end.

Python: 1

С++: 1

• Рядом с каждой вершиной проставим количество ребер вершины и в скобках — количество ребер у «соседей»:



• Выберем уникальные вершины, значения которых вместе с соседними вершинами отличаются от всех:

B = 2(3,3)
A = 3(3,3,3)

• Найдем эти вершины в таблице.
• Вершина B 2(3,3):

Найдем строки в таблице с двумя вершинами:
№1:  39 и 3 = 2(3,2) , т.к. 1 сосед =(39,8,5) и 2 сосед=2(3,2). Данная строка не подходит, так как мы ищем 2(3,3)
№3: 3 и 2 = 3(2,2) не подходит
№4: 8 и 53 = 2(3,3) => B = №4

• Вершина А 3(3,3,3):

Найдем строки в таблице с двумя вершинами:
№2:  39 и 8 и 5 = 3(3,2,3) не подходит
№5: 5 и 21 и 30 = 3(3,3,3) => A = №5

• На графе находим вершину B, и видим соседей — D(2,3,3) и F(2,2,3).
• В таблице №4=B пересекается с №2(2,2,3) и №7(2,3,3). Делаем вывод, что №2=F, №7=D.
• По таблице находим длину и сумму длин:

DB=53, FA=5
53+5 = 58

Ответ: 58

• Запустите программу Кумир.
• В окне редактора введите код для Черепахи:



использовать Черепаха
алг
нач
 цел а
 опустить хвост
 нц для а от 1 до 7
   вперед(16)
   вправо(120)
 кц
кон

В задании указана команда вперед 10. Но мы использовали вперед 16 с целью получения ровно 10 клеточек. Нужно подобрать такое число, чтобы число клеток совпадало со значением в задании.
В случае необходимости можно использовать колесико мышки для увеличения/уменьшения масштаба поля.

Ответ: 38

• Вспомним формулу объема звукового файла:
I = β * ƒ * t * S

I — объем
β — глубина кодирования
ƒ — частота дискретизации
t — время
S -количество каналов

• Выпишем отдельно, все данные, касающиеся первого состояния файла, затем второго состояния — после преобразования:

1 состояние:
S = 1 канал
I = 28 Мбайт

2 состояние:
S = 2 канала
β = в 3,5 раза выше
ƒ = в 2 раза ниже
I = ?

• Так как изначально был 1 канал связи (S), а стало два канала связи, то файл увеличился в 2 раза:

I = I * 2

• Глубина кодирования (β) увеличилась в 3,5 раза, то и объем (I) увеличится в 3,5 раза (пропорциональная зависимость):

I = I * 3,5

• Частота дискретизации (ƒ) уменьшилась в 2 раза, значит, объем (I) тоже уменьшится в 2 раза:

I = I / 2

• Рассмотрим все изменения объема преобразованного файла:

I = 28 Мбайт * 2 * 3,5 / 2 = 98 Мбайт

Ответ: 98

• Откройте файл в программе Microsoft Word. Щелкните горячие клавиши [Ctrl+F] для открытия окна поиска; затем по стрелочке для раскрытия меню Расширенного поиска:



• Или выберите Расширенный поиск в меню Главная.



• В расширенном поиске введите слово «теперь» и отметьте пункты «Только слово целиком» и «Учитывать регистр»:



• Можно щелкнуть по кнопке Выделить все для наглядности.
• Щелкните закрыть и еще раз введите слово в окно поиска. В результатах видим число 45.

Ответ: 45

• Основной формулой для решения данной задачи является:
Q = 2^N

где Q — количество вариантов символов, которые можно закодировать с помощью N бит.

• Чтобы найти количество бит, необходимое для хранения одного идентификатора, для начала нужно найти количество бит, необходимых для хранения 1 символа в идентификаторе. По формуле получаем:

1650+10 = 2N 
-> N ~ 11 бит (т.к. 10 мало)

• Пароль состоит из 250 символов. Значит на идентификатор необходимо выделить бит:

250 * 11 = 2750 бит всего на идентификатор

• Поскольку сведения о пароле сохраняются в байтах, то переведем:

2750 бит / 8 =343,75 ~ 344 байт

• Теперь найдем сколько байт отводится для хранения информации о 65536 идентификаторах и переведем в кБайты:

344 * 65536 : 210 => выразим в степени двойки => 65536 =216
344  * 216 : 210 = 344*26 = 22016

Ответ: 22016

✎ Решение с использованием программирования:
PascalABC.NET:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

begin for var n := 1 to 1000 do begin var s := '>' + 39 * '0' + n * '1' + 39 * '2'; while ('>1' in s) or ('>2' in s) or ('>0' in s) do begin if '>1' in s then s := s.Replace('>1', '22>', 1); if '>2' in s then s := s.Replace('>2', '2>', 1); if '>0' in s then s := s.Replace('>0', '1>', 1); end; var sum := s.CountOf('1') + s.CountOf('2') * 2; var isPrime := true; for var i := 2 to sum - 1 do begin if sum.Divs(i) then begin isPrime := false; break end; end; if isPrime then begin print(n); exit; end; end; end.

begin for var n := 1 to 1000 do begin var s := '>' + 39 * '0' + n * '1' + 39 * '2'; while ('>1' in s) or ('>2' in s) or ('>0' in s) do begin if '>1' in s then s := s.Replace('>1', '22>', 1); if '>2' in s then s := s.Replace('>2', '2>', 1); if '>0' in s then s := s.Replace('>0', '1>', 1); end; var sum := s.CountOf('1') + s.CountOf('2') * 2; var isPrime := true; for var i := 2 to sum - 1 do begin if sum.Divs(i) then begin isPrime := false; break end; end; if isPrime then begin print(n); exit; end; end; end.

✎ Решение с использованием программирования:
PascalABC.NET:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

begin
  for var A := 1 to 500 do
  begin
    var ok := 1;
    for var x := 1 to 1000 do
    begin
      if (((x mod 2 = 0) <= (x mod 3 <> 0)) or (x + A >= 100)) =false then
      begin
        ok := 0; 
        break;
      end;
    end;
    if (ok = 1) then 
      print(A)
  end;
end.

Питон:

1
2
3
4
5
6

for A in range(1,1000):
    OK = 1
    for x in range(1,1000):
        OK *= ((x % 2 == 0) <= (x % 3 != 0)) or (x + A >= 100)
    if OK:
        print( A )

C++:

1

✎ Решение с использованием программирования:
PascalABC.NET:
Решается только с типом данных BigInteger!

1
2
3
4
5
6
7
8
9
10
11

function F(n: biginteger): biginteger;
begin
  if n = 1 then
    F := 1
  else if n > 1 then
    F := n * F(n - 1)
end;
 
begin
  print(F(2023)/F(2020))
end.

Питон:

1

C++:

1

Ответ: 8266912626

✎ Решение с использованием программирования:

PascalABC.NET: LINQ-метод

1 2 3 4 5 6 7 8 9 10 11

## var data := ReadLines('17.txt').Select(t -> t.ToInteger).ToArray; var m:= data.Where(x->x mod 10 = 3).Max; // максимальный кратный 3 var twins := data.NWise(2).Select(ar->ar.Order.ToArray) .Where(ar->((abs(ar[0]) mod 10 = 3) and (abs(ar[1]) mod 10 <> 3) or (abs(ar[1]) mod 10 = 3) and (abs(ar[0]) mod 10 <> 3))and ((ar[0]*ar[0]+ar[1]*ar[1])>=m*m));   twins.Count.Print; var sums:=twins.Select(t->t[0]*t[0]+t[1]*t[1]); // массив сумм квадратов sums.max.print;

## var data := ReadLines('17.txt').Select(t -> t.ToInteger).ToArray; var m:= data.Where(x->x mod 10 = 3).Max; // максимальный кратный 3 var twins := data.NWise(2).Select(ar->ar.Order.ToArray) .Where(ar->((abs(ar[0]) mod 10 = 3) and (abs(ar[1]) mod 10 <> 3) or (abs(ar[1]) mod 10 = 3) and (abs(ar[0]) mod 10 <> 3))and ((ar[0]*ar[0]+ar[1]*ar[1])>=m*m)); twins.Count.Print; var sums:=twins.Select(t->t[0]*t[0]+t[1]*t[1]); // массив сумм квадратов sums.max.print;

PascalABC.NET: классическое решение

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

##   var data := ReadLines('17.txt').Select(t -> t.ToInteger).ToArray; var max_square_sum := 0; var count := 0; var m := integer.MinValue; foreach var x in data do if x mod 10 = 3 then m := max(m, x);   for var i := 0 to data.length - 2 do begin var check_suf := ((abs(data[i]) mod 10 = 3) and (abs(data[i + 1]) mod 10 <> 3) or ((abs(data[i]) mod 10 <> 3) and (abs(data[i + 1]) mod 10 = 3))); if (check_suf) and (data[i] ** 2 + data[i + 1] ** 2 >= m ** 2) then begin count += 1; max_square_sum := max(max_square_sum, data[i] * data[i] + data[i + 1] * data[i + 1]); end; end; print(count, max_square_sum)

## var data := ReadLines('17.txt').Select(t -> t.ToInteger).ToArray; var max_square_sum := 0; var count := 0; var m := integer.MinValue; foreach var x in data do if x mod 10 = 3 then m := max(m, x); for var i := 0 to data.length - 2 do begin var check_suf := ((abs(data[i]) mod 10 = 3) and (abs(data[i + 1]) mod 10 <> 3) or ((abs(data[i]) mod 10 <> 3) and (abs(data[i + 1]) mod 10 = 3))); if (check_suf) and (data[i] ** 2 + data[i + 1] ** 2 >= m ** 2) then begin count += 1; max_square_sum := max(max_square_sum, data[i] * data[i] + data[i + 1] * data[i + 1]); end; end; print(count, max_square_sum)

Питон:

1 2 3 4 5 6 7 8 9 10 11 12 13

f = open('17.txt') nums = [int(i) for i in f] max_square_sum = count = 0 max_elem=-10001 for x in nums: if x % 10 ==3: max_elem=max(max_elem, x) for i in range(len(nums) - 1): check_suf = (abs(nums[i]) % 10 == 3 and abs(nums[i + 1]) %10 != 3) or (abs(nums[i]) %10 != 3 and abs(nums[i + 1]) % 10 == 3) if check_suf and nums[i] ** 2 + nums[i + 1] ** 2 >= max_elem**2: count += 1 max_square_sum = max(max_square_sum, nums[i] ** 2 + nums[i + 1] ** 2) print(count, max_square_sum)

f = open('17.txt') nums = [int(i) for i in f] max_square_sum = count = 0 max_elem=-10001 for x in nums: if x % 10 ==3: max_elem=max(max_elem, x) for i in range(len(nums) - 1): check_suf = (abs(nums[i]) % 10 == 3 and abs(nums[i + 1]) %10 != 3) or (abs(nums[i]) %10 != 3 and abs(nums[i + 1]) % 10 == 3) if check_suf and nums[i] ** 2 + nums[i + 1] ** 2 >= max_elem**2: count += 1 max_square_sum = max(max_square_sum, nums[i] ** 2 + nums[i + 1] ** 2) print(count, max_square_sum)

C++:

1

Откроем файл и проанализируем таблицу:
• В столбце С указаны номера процессов, после которых запускается процесс, указанный в столбце А.
• Если в столбце С для некоторой строки указан 0, значит процесс этой строки запускается сразу, не ожидая выполнения других процессов. То есть, процессы 1, 2, 9 и 10 запускаются одновременно и сразу после запуска системы процессов. При этом, процесс 1 будет выполняться 4 мс (столбец В), а, к примеру, процесс 10 будет выполняться 8 мc.
• Уменьшим ширину столбцов D:V (примерный диапазон), и пронумеруем данные столбцы, начиная с 1, используя автозаполнение:



• Далее, начиная с процессов, которые запускаются параллельно (цифра 0 в столбце С), выделяем вправо количество столбцов, равное количеству миллисекунд в столбце В. Заливаем их цветом:



• Затем в столбце С ищем те строки, в которых используются уже заполненные процессы. Так, процесс №3 запускается последовательно за процессом 1 и 2. Так как процесс №1 длится дольше — 4 мс, то заливаем цветом столбцы для процесса №3 вправо, после уровня залитых ячеек для процесса №1:



• Теперь можно залить цветом данные о процессах 4 и 5, так как эти процессы следуют за процессом №3.



• Следуя той же логике, закрашиваем данные по всем процессам:



• Видим, что самая крайняя справа заполненная ячейка соответствует числу 17.

PascalABC.NET (классическое решение):

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

assign(input, '24demo.txt'); var s := readstring; var count := 0; var max_count := 0; var i := 1; while i < s.Length do begin if ((s[i] = 'C') or (s[i] = 'D') or (s[i] = 'F')) and ((s[i + 1] = 'A') or (s[i + 1] = 'O')) then begin count += 1; i += 2; if max_count < count then max_count := count end else begin count := 0; i += 1 end; end; print(max_count);

assign(input, '24demo.txt'); var s := readstring; var count := 0; var max_count := 0; var i := 1; while i < s.Length do begin if ((s[i] = 'C') or (s[i] = 'D') or (s[i] = 'F')) and ((s[i + 1] = 'A') or (s[i + 1] = 'O')) then begin count += 1; i += 2; if max_count < count then max_count := count end else begin count := 0; i += 1 end; end; print(max_count);

Python:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

f=open(r'24.txt') s=f.read() count=0 max_count=0 i=0 while i < len(s):     if (s[i]=='C' or s[i]=='D' or s[i]=='F') and (s[i+1]=='A' or s[i+1]=='O'):         count+=1         i+=2         if max_count < count:             max_count=count     else:         count=0         i+=1 print(max_count)

f=open(r'24.txt') s=f.read() count=0 max_count=0 i=0 while i < len(s):     if (s[i]=='C' or s[i]=='D' or s[i]=='F') and (s[i+1]=='A' or s[i+1]=='O'):         count+=1         i+=2         if max_count < count:             max_count=count     else:         count=0         i+=1 print(max_count)

• Рядом с каждой вершиной напишем количество ребер для данной вершины и в скобках — количество ребер у соседних вершин:



• Проще всего определить вершины Е и К, так как это единственные вершины с двумя ребрами, соседствующие друг с другом: Е = П7, на пересечении с ней находится П4, у которой также 2 ребра. К = П4.
• Вторым соседом Е является вершина Б. Значит Б = П5.
• Вторым соседом К является вершина Д. Значит Д = П6.
• Одним из соседей Д является вершина Г, у которой два ребра. На пересечении с Д есть пункт П2, в котором два значения. Значит, Г = П2.

Вторым соседом Г является вершина А. Т.е., А = П3.


• По заданию нам необходимо найти длину дорог между А и Б, и длину дорог между Е и К. Найдем значения и их сумму:

13 + 3 = 16

Ответ: 16

✎ Способ 1. Программирование:

Язык PascalAbc.net:

begin writeln('x':7, 'y':7, 'z':7,'w':7); for var x:=false to true do for var y:=false to true do for var z:=false to true do for var w:=false to true do if not((not (x <= y)) or (y=w) or (not y)) then writeln(x:7, y:7, z:7,w:7); end.

begin writeln('x':7, 'y':7, 'z':7,'w':7); for var x:=false to true do for var y:=false to true do for var z:=false to true do for var w:=false to true do if not((not (x <= y)) or (y=w) or (not y)) then writeln(x:7, y:7, z:7,w:7); end.

Сопоставим полученный результат с исходной таблицей:

x y z w False True False False False True True False True True False False True True True False

1 столбец 2 столбец 3 столбец 4 столбец F 0 0 0 0 0 1 1 0 0

• Для y имеем все значения true, что может соответствовать только 3-му столбцу.
• Для w имеем все значения false, что может соответствовать только 4-му столбцу.
• Для поиска z и x рассмотрим вторую строку — в ней их значения различны. Значение false — у переменной x, что соответствует первому столбцу.
• Соответственно z будет во втором столбце.

Ответ: xzyw

• В таблице Товар находим наименование товара — Яйцо диетическое (можно использовать фильтр). Запоминаем его артикул — 15.
• В таблице Магазин ищем магазины Заречного района, выписываем их ID: M3, M9, M11, M14.
• В таблице Движение товаров выделяем первую строку и ставим фильтр на всю строку.
• В столбце ID Магазина отмечаем только ID из предыдущего пункта. В столбце Артикул — выбираем 15.

Проверяем даты — все они входят в указанный диапазон дат.
Выбираем Тип операции — Поступление. выделяем значение столбца и смотрим сумму в столбце Количество упаковок — 1420. Затем выбираем Продажа; количество упаковок — 454.

1420 - 454 = 956

Ответ: 956

• Размещаем буквы так, чтобы наиболее часто встречаемые в слове коногон буквы имели наиболее короткий код.

К = 2
О = 3*2 = 6
Н = 2*2 = 4
Г = 3
---
итого: 15

Ответ: 15

 
✎ Решение с использованием программирования:

PascalAbc.NET: uses school;   begin var n_ := 1; while True do begin var n := n_; var binN := bin(n); if n mod 2 = 0 then binN := binN + '10' // добавили 10, строковое значение в 2-й с.с. else binN := '1' + binN + '01';// добавили слева 1, права 01 n := dec(binN, 2); // перевод из двоичной в 10-ю с.с. if n > 516 then begin println(n_); break end; n_ += 1; end; end. uses school; begin var n_ := 1; while True do begin var n := n_; var binN := bin(n); if n mod 2 = 0 then binN := binN + '10' // добавили 10, строковое значение в 2-й с.с. else binN := '1' + binN + '01';// добавили слева 1, права 01 n := dec(binN, 2); // перевод из двоичной в 10-ю с.с. if n > 516 then begin println(n_); break end; n_ += 1; end; end.

Python:

Ответ: 65

✎ Способ 1 (программный):
Pascalabc.net:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

begin var s_ := 500; while s_ > -10 do begin var s := s_; s := (s - 10) div 7; var n := 1; while s > 0 do begin n := n * 2; s := s - n; end; if n = 8 then writeln(s_); s_ := s_ - 1; end; end.

begin var s_ := 500; while s_ > -10 do begin var s := s_; s := (s - 10) div 7; var n := 1; while s > 0 do begin n := n * 2; s := s - n; end; if n = 8 then writeln(s_); s_ := s_ - 1; end; end.

Пояснение:

• Поскольку условие цикла s > 0, а по условию задания следует найти наименьшее значение s, то можно начать примерно с s=500. Во внешнем цикле необходимо постоянно уменьшать значение s на единицу.
• Важно для внешнего цикла использовать другую переменную, т.к. во внутреннем цикле переменная s меняется, а нам следует каждый шаг внешнего цикла сохранить предыдущее значение s, уменьшив его всего на 1. Используем переменную s_ для этих целей.
• Из полученных выведенных значений выбираем последнее — наименьшее (59).

Бейсик:	Python:
С++:

Ответ: 59

✎ Способ 1 (программный):
Pascalabc.net:

## // I = n * m * i -> // -> i = I / (n * m) var I:=80.0; I:=80*1024*8; // в биты I:=I/0.85; // с учетом сжатия var nm:=486*720; var ipix:= (I / nm).Floor; // отсекаем дробную часть var maxColor:=power(2,ipix); print(maxColor)

## // I = n * m * i -> // -> i = I / (n * m) var I:=80.0; I:=80*1024*8; // в биты I:=I/0.85; // с учетом сжатия var nm:=486*720; var ipix:= (I / nm).Floor; // отсекаем дробную часть var maxColor:=power(2,ipix); print(maxColor)

• Добавляем сверху строку для подписей:



• В ячейку F2 вводим формулу для поиска квадрата суммы максимального и минимального значения:

=(МАКС(A2:E2)+МИН(A2:E2))^2

• В ячейку G2 вводим формулу для поиска квадратов минимального и максимального значений (она нам пригодится дальше):

=(МАКС(A2:E2)^2+МИН(A2:E2)^2)

• В ячейку H2 вводим формулу для поиска квадратов всех значений по строке минус квадрат суммы максимального и минимального значения:

=A2^2+B2^2+C2^2+D2^2+E2^2-G2

• В ячейке I2 выводим единицу, если значение в ячейке F2 больше значение в ячейке H2, т.е. отвечаем на вопрос задания:

=ЕСЛИ(F2>H2;1;0)

• Смотрим сумму по столбцу I — ответ 2640.

Ответ: 2640

• Откройте файл в Miscrosoft Word.
• Включите расширенный поиск.
• Отметьте галочкой пункты Учитывать регистр и Только слово целиком.
• Выберите пункт Выделение при чтении — Выделить всё.

Ответ: 7

• Количество бит на один идентификатор:

10 (цифр) + 1560 = 1570
1570 <= 211
11 бит на хранение одного символа
250*11 = 2750 бит на хранение целого идентификатора
2750 / 8 <= 344 байт

• Посчитаем объем в Кбайт для хранения идентификаторов для 32768 пользователей:

344*32768/1024 = 11008

Ответ: 11008

✎ Решение с использованием программирования:
PascalABC.NET:
Вариант 1:

1 2 3 4 5 6 7 8 9 10 11

begin var s := '8'*86; while ('1111' in s) or ('8888' in s) do begin if '111' in s then s := s.Replace('1111', '8', 1) else s := s.Replace('8888', '11', 1); end; print(s); end.

begin var s := '8'*86; while ('1111' in s) or ('8888' in s) do begin if '111' in s then s := s.Replace('1111', '8', 1) else s := s.Replace('8888', '11', 1); end; print(s); end.

Питон:

1 2 3 4 5 6 7

s = 86 * '8' while "1111" in s or "8888" in s: if "111" in s: s = s.replace( "1111", "8", 1 ) else: s = s.replace( "8888", "11", 1 ) print(s)

s = 86 * '8' while "1111" in s or "8888" in s: if "111" in s: s = s.replace( "1111", "8", 1 ) else: s = s.replace( "8888", "11", 1 ) print(s)

uses school;
begin
  var numb: Biginteger; 
  numb := 3*Biginteger.Pow(16,2018) - 2* Biginteger.Pow(8,1028)-3*Biginteger.Pow(4,1100)-Biginteger.Pow(2,1050)-2022;
  var n:=numb.ToBase(4).CountOf('3');
  print(n)
end.

Ответ: 4027

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

begin
  for var A := 1 to 500 do
  begin
    var ok := 1;
    for var x := 1 to 1000 do
    begin
      if ((x mod 3 = 0) <= (x mod 5 > 0)) or (x + A >= 70) = false then
      begin
        ok := 0; 
        break;
      end;
    end;
    if (ok = 1) then 
      begin 
      print(A); break;
      end;
  end;
end.

Питон:

C++:

1

✎ Решение с использованием программирования:
PascalABC.NET:

1
2
3
4
5
6
7
8
9
10
11
12
13

function F(n: integer): integer;
begin
  if n < 3 then
    F := 2;
  if (n mod 2 = 0) and (n > 2) then
    F := F(n - 1)+F(n - 2) - n;
  if (n > 2) and (n mod 2 <> 0) then
    F := F(n - 2) - F(n - 1) + 2*n
end;
 
begin
  print(F(30))
end.

Питон:

C++:

1

Ответ: 58

✎ Решение с использованием программирования:

PascalABC.NET:

1 2 3 4 5 6 7 8

## var data := ReadLines('107_17.txt').Select(t -> t.ToInteger).ToArray; var minData17:=data.Where(w->w.Divs(17)).min; // минимальный var twins := data.NWise(2).Select(ar->ar.Order.ToArray) .Where(ar->(ar[0].Divs(minData17)) or (ar[1].Divs(minData17))); twins.Count.Print; var sums:=twins.Select(t->t[0]+t[1]); // массив сумм sums.max.print;

## var data := ReadLines('107_17.txt').Select(t -> t.ToInteger).ToArray; var minData17:=data.Where(w->w.Divs(17)).min; // минимальный var twins := data.NWise(2).Select(ar->ar.Order.ToArray) .Where(ar->(ar[0].Divs(minData17)) or (ar[1].Divs(minData17))); twins.Count.Print; var sums:=twins.Select(t->t[0]+t[1]); // массив сумм sums.max.print;

Питон:

1

C++:

1

✎ Решение в Excel:

• Запустите программу Excel.
• В меню Файл выберите пункт Открыть и щелкните Обзор.
• Рядом с полем Имя файла выберите в списке Все файлы (*|*). Откройте файл задания (107_17.txt - Далее, Далее, Готово).
• В столбце B найдем числа кратные 17 – в ячейку будем выводить само число, иначе, если число не кратно 17, - будем выводить какое-то большое число, например, 100000 (так как будем потом искать минимум).

B1
=ЕСЛИ(ОСТАТ(A1;17)=0;A1;100000)

• Скопируйте формулу на весь столбец.
• В ячейке C1 добавим формулу для поиска минимального из найденных значений:

С1
=МИН(B:B)
ответ: 1003

• В столбце D будем искать подходящие пары: если одно число из пары кратно значению ячейки С1, то будем выводить сумму рассматриваемой пары, а иначе – выводить пустое значение («»)

D1
=ЕСЛИ(ИЛИ(ОСТАТ(A1;C$1)=0;ОСТАТ(A2;C$1)=0);A1+A2;"")

• Скопируйте формулу на весь столбец.
• !!!Просмотрите столбец D до конца и сотрите значение в самой последней ячейке (D10000), если оно там есть (сравнение идет со следующей пустой ячейкой)!!!
• В ячейке Е1 найдем максимальное значение из найденного ряда (максимальную сумму пары):

Е1
=МАКС(D:D)
17613

• В ячейке F1 введем формулу для поиска количества подходящих пар:

F1
=СЧЁТ(D:D)
24

• !!! В ответе запишем в том порядке, в котором просится в задании!!! – сначала 24, затем 17613

✎ Электронные таблицы:
• Для решения будем использовать метод динамического программирования - решать будет с конца к началу.
• Откройте файл электронной таблицы. Скопируем таблицу и вставим ее ниже - это будет шаблон для результирующей таблицы, полученной после решения задачи.
• Выделите ячейки скопированной таблицы каким-либо цветом, для обозначения ее границ. Теперь удалите все значения в результирующей таблице:



• Так как задание решается с конца, то выделим последнюю ячейку, в которой окажется Робот - нижняя правая ячейка O31 результирующей таблицы. Робот просто соберет монету, которая находится в этой ячейке исходной таблицы - O15. Поэтому для ячейки возьмем значение из исходной таблицы. Введите формулу:

формула для O31:
=O15

Попасть в данную ячейку O15 Робот мог, либо двигаясь из ячейки N15, либо из O14.

• Рассмотрим ячейку N31. В ней Робот собирает монету, значение которой возьмем из исходной таблицы (ячейка N15). Ну и поскольку дальше он попадет только в ячейку O31, то необходимо прибавить значение этой ячейки.

формула для N31:
=N15+O31

• Для всей нижней строки таблицы мы можем утверждать следующее: из любой ячейки Робот может двигаться только в соседнюю ячейку справа. То есть Робот будет собирать монету с текущей ячейки и при это необходимо прибавлять значение соседней ячейки справа. То есть формула, которую мы ввели в ячейку N31 будет такой же и для всех оставшихся ячеек строки. Скопируйте формулу на всю строку.



• Рассмотрим ячейку O30. В ней Робот собирает монету, значение которой возьмем из исходной таблицы (ячейка O14). Ну и поскольку дальше он попадет только в ячейку O31, то необходимо прибавить значение этой ячейки.

формула для O30:
=O14+O31

• Для всего столбца O таблицы мы можем утверждать следующее: из любой ячейки Робот может двигаться только в соседнюю ячейку снизу. То есть Робот будет собирать монету с текущей ячейки и при это необходимо прибавлять значение соседней ячейки снизу. То есть формула, которую мы ввели в ячейку O30 будет такой же и для всех оставшихся ячеек столбца. Скопируйте формулу.


В ячейке N30 Робот собирает монету из текущей ячейки (берем значение из исходной таблицы - N14), и затем у него альтернатива движения: либо в ячейку N31, либо в O30. В задании необходимо найти, как максимальную, так и минимальную сумму монет. Найдем сначала максимальную. Для этого введите формулу в N30:

=N14+МАКС(N31;O30)

• Если проследовать логике движения Робота, то получается, что данная формула будет верной и для всех оставшихся ячеек таблицы. Скопируйте формулу из ячейки N30, использовав маркер копирования, во все оставшиеся ячейки таблицы. Стены мы учтем позже.



• Восстановите границы стен из исходной таблицы (нарисуйте их опять).

Заполним формулы для стен. Для ячеек со стеной диапазона C24:F24 значение формул будут такими же, как у соответствующих им ячеек нижней строки - C31:F31. Скопируйте формулы у этих ячеек и вставьте их для диапазона C24:F24.

• То же самое касается ячеек J21:K21 - для них нужна скопированная формула ячеек J31:K31.
• Формулы ячеек K22:K28 будут соответствовать ячейкам диапазона O22:O28. Так же скопируйте их.



• Найденное максимальное значение - 2174.
• Теперь найдем минимальную сумму. Для этого измените формулу, заменив МАКС на МИН. И скопируйте снова данную формулу во всю оставшуюся таблицу.
• Найденное минимальное значение - 1145.

Ответ: 2174 1145

✎ Способ 1. Программирование:
Язык Pascal:

var s, s_, P, Q, K1, K2: longint;   begin s_ := -100; while true do begin s := s_; P := 10; Q := 8; K1 := 0; K2 := 0; while s <= 100 do begin s := s + P; K1 := K1 + 1; end; while s >= Q do begin s := s - Q; K2 := K2 + 1; end; K2 := K2 + s; K1 := K1 + s; if (k1 = 10) and (k2 = 19) then begin print(s_); break; end; s_ := s_ + 1; end; end.

var s, s_, P, Q, K1, K2: longint; begin s_ := -100; while true do begin s := s_; P := 10; Q := 8; K1 := 0; K2 := 0; while s <= 100 do begin s := s + P; K1 := K1 + 1; end; while s >= Q do begin s := s - Q; K2 := K2 + 1; end; K2 := K2 + s; K1 := K1 + s; if (k1 = 10) and (k2 = 19) then begin print(s_); break; end; s_ := s_ + 1; end; end.

Ответ: 70

• Сначала найдём количество программ для перехода от числа 1 к числу 16, а затем от числа 16 к 52.
• Напишем программу, реализующую алгоритм поиска результата, вычисления по рекуррентным формулам организуем с помощью рекурсии.
• Рекурсивная функция, которая возвращает количество программ для преобразования числа start в число x:

Паскаль: решение №1 (траектория от 1 к 52)

function f(start, x: integer): integer; begin var k: integer; if start > x then result := 0 else if start = x then result := 1 else begin // обязательные операторные скобки k := k + f(start + 2, x) + f(start *2, x); result := k; end; end;   begin writeln(f(1, 16)*f(16, 52)); end.

function f(start, x: integer): integer; begin var k: integer; if start > x then result := 0 else if start = x then result := 1 else begin // обязательные операторные скобки k := k + f(start + 2, x) + f(start *2, x); result := k; end; end; begin writeln(f(1, 16)*f(16, 52)); end.

Паскаль: решение №2 (траектория от 52 к 1)

function func( start, x: integer ): integer; var k: integer; begin if x < start then func := 0 // если число x меньше нач. значения, кол-во программ равно 0 else if x = start then func := 1 // если число x = нач. значению, кол-во программ равно 1 else begin k := func( start, x-2 ); //учитываем кол-во программ предыдущего числа // если число чётное, нужно добавить ещё кол-во программ для числа x//2: if x mod 2 = 0 then k := k + func( start, x div 2 ); func := k; end; end;   begin writeln( func(1,16) * func(10,52) ); end.

function func( start, x: integer ): integer; var k: integer; begin if x < start then func := 0 // если число x меньше нач. значения, кол-во программ равно 0 else if x = start then func := 1 // если число x = нач. значению, кол-во программ равно 1 else begin k := func( start, x-2 ); //учитываем кол-во программ предыдущего числа // если число чётное, нужно добавить ещё кол-во программ для числа x//2: if x mod 2 = 0 then k := k + func( start, x div 2 ); func := k; end; end; begin writeln( func(1,16) * func(10,52) ); end.

Ответ: 105

Паскаль:
Решение 1:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

begin assign(input, '107_24.txt'); var s := readstring; var maxLen := 0; var i := 1; var k := 0; while i <= Length(s) - 1 do begin if (s[i] = 'A') and (s[i + 1] = 'B') or (s[i] = 'C') and (s[i + 1] = 'B') then begin k := k + 1; i := i + 2; if k > maxLen then maxLen := k; end else begin k := 0; i += 1; end; end; println(maxLen); end.

begin assign(input, '107_24.txt'); var s := readstring; var maxLen := 0; var i := 1; var k := 0; while i <= Length(s) - 1 do begin if (s[i] = 'A') and (s[i + 1] = 'B') or (s[i] = 'C') and (s[i + 1] = 'B') then begin k := k + 1; i := i + 2; if k > maxLen then maxLen := k; end else begin k := 0; i += 1; end; end; println(maxLen); end.

Решение 2:

1 2 3 4 5 6 7 8 9 10 11

begin assign(input, '107_24.txt'); var s := readstring; var maxLen := 0; s := s.Replace('CB', 'AB'); for var i := 1 to 100 do if s.Contains('AB' * i) then begin //1 шаг: AB 2 шаг: ABAB ... maxLen := i; end; println(maxLen); end.

begin assign(input, '107_24.txt'); var s := readstring; var maxLen := 0; s := s.Replace('CB', 'AB'); for var i := 1 to 100 do if s.Contains('AB' * i) then begin //1 шаг: AB 2 шаг: ABAB ... maxLen := i; end; println(maxLen); end.

Python:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

f= open("107_24.txt") s = f.read() k=0 m=0 i=0 while i<=len(s)-1: if (s[i]=='A' and s[i+1]=='B') or (s[i]=='C' and s[i+1]=='B'): k+=1 i+=2 if k>m: m=k else: k=0 i+=1 print(m)

f= open("107_24.txt") s = f.read() k=0 m=0 i=0 while i<=len(s)-1: if (s[i]=='A' and s[i+1]=='B') or (s[i]=='C' and s[i+1]=='B'): k+=1 i+=2 if k>m: m=k else: k=0 i+=1 print(m)