2196
Объяснение:
Посчитаем, сколько команд переводят 22 в n, обозначим это количество как a(n). Положим a(22) = 1 (существует одна - пустая - программа, переводящая 22 в 22) и a(n) = 0 для всех n больше 22.
Любое число n могло получиться следующими
из n + 1 путем вычитания 1из n + 3 путем вычитания 3из 3n путем деления на 3из 3n + 1 путем деления на 3из 3n + 2 путем деления на 3Тогда a(n) = a(n + 1) + a(n + 3) + a(3n) + a(3n + 1) + a(3n + 2).
Начинаем последовательно вычислять значения:
a(21) = a(22) + 0 + 0 + 0 + 0 = 1
a(20) = a(21) + 0 + 0 + 0 + 0 = 1
a(19) = a(20) + a(22) + 0 + 0 + 0 = 2
...
a(7) = a(8) + a(10) + a(21) + a(22) + 0
a(6) = a(7) + a(9) + a(18) + a(19) + a(20)
...
Получившиеся значения приведены в таблице:
program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.