Числа из спичек

[kim-im]

Здравствуйте. Нужна помощь для решения задачи:
Условие: Имея несколько спичек и использовав для изображения цифр соответствующий шаблон, можно получить различные натуральные многоцифровые числа. Какое наименьшее и наибольшее число можно составить из K спичек, используя их все?

Входные данные: Натуральное число K – количество спичек (2 ≤ K ≤ 200)

Исходные данные: Ответ к задаче (два числа через пробел).

Пример: k=5 => min=2, max=71

При решении я составил составил небольшую таблицу, чтобы найти закономерность (могу ошибаться):
k=2 => min=1, max=1
k=2 => min=7, max=7
k=4 => min=4, max=11
k=5 => min=2, max=71
k=6 => min=0, max=111
k=7 => min=8, max=711
k=8 => min=10, max=1111
k=9 => min=18, max=7111
k=10 => min=22, max=11111

Для max у меня получилось.
Прошу помощи составить программу для нахождения min.
Спасибо.
Мой код:

var k,max:int64;
 begin
  read (k);
  if not odd(k) then max:=1 else max:=7;
   while k>3 do
    begin
     max:=max*10+1;
     k:=k-2;
    end;
   write (max);
 end.

Шаблон для задачи ниже

[evg_m]

получаем минимально возможную разрядность числа (используя спички по максимуму для младших разрядов)
x:=n div 7;
?8...8 (8 повторено X раз)
может статься невозможно получить первую цифру (к примеру n mod 7 =1)
?8(первые две цифры) иногда (или часто) можно заменить на ДРУГОЕ меньшее но тоже двузначное число(но с тем же числом спичек).

и еще остался случай (n mod 7 =0) т.е. первая цифра отсутствует( число вида 88...8)
что-то нужно( а может и не нужно) делать и с этим.

[Аватар]

получаем минимально возможную разрядность числа (используя спички по максимуму для младших разрядов)

Не очень катит. Например для 10: по максимуму 78, а минимум 22

[evg_m]

Не очень катит. Например для 10: по максимуму 78, а минимум 22

а для двузначных примеров есть замечание.

(первые две цифры) иногда (или часто) можно заменить на ДРУГОЕ меньшее но тоже двузначное число(но с тем же числом спичек).

[Plague]

Прошелся перебором.
Минут 15 до 200 перебирал мой комп.

2 1 
3 7 
4 4 
5 2 
6 0 
7 8 
8 10 
9 18 
10 22 
11 20 
12 28 
13 68 
14 88 
15 168 
16 188 
17 228 
18 268 
19 288 
20 688 
21 888 
22 1688 
23 1888 
24 2288 
25 2688 
26 2888 
27 6888 
28 8888 
29 16888
30 18888 
31 22888 
32 26888 
33 28888 
34 68888 
35 88888 
36 168888 
37 188888 
38 228888 
39 268888 
40 288888 
41 688888 
42 888888 
43 1688888

С 15 начинаем замечать закономерность?
И при нахождении максимума ответ у Вас явно в int64 не поместится.

[Serge_Bliznykov]

Сообщение от Plague

Прошелся перебором.

не соглашусь.

сравните:

 2 1
 3 7
 4 4
 5 2
 6 6
 7 8
 8 10
 9 18
 10 22
 11 20
 12 28
 13 68
 14 88
 15 108
 16 188
 17 200
 18 208
 19 288
 20 688
 21 888
 22 1088
 23 1888
 24 2008
 25 2088
 26 2888
 27 6888
 28 8888
 29 10888
 30 18888
 31 20088
 32 20888
 33 28888
 34 68888
 35 88888
 36 108888
 37 188888
 38 200888
 39 208888
 40 288888
 41 688888
 42 888888
 43 1088888
 44 1888888
 45 2008888
 46 2088888
 47 2888888
 48 6888888
 49 8888888
 50 10888888

в интернете нашёл такой вариант решения:

public static string Solve3(int n)
		{
			if (n < 2) return null;
			if (n < 8) {
				switch (n)
				{
						case 2: return "1";
						case 3: return "7";
						case 4: return "4";
						case 5: return "2";
						case 6: return "6";
						case 7: return "8";
						default: return "";
				}
			}
			else {
				if (n==10) return "22"; // чтобы не париться с исключением и отрицательным d
				int d = n / 7;
				int r = n % 7;
				if ((r == 1) || (r == 4)) d -= 1; 
				else if (r == 3) d -= 2;
					
				string tail = new string('8', d);
				switch (r)
				{
						case 1: return "10" + tail;
						case 2: return "1" + tail;
						case 3: return "200" + tail;
						case 4: return "20" + tail;
						case 5: return "2" + tail;
						case 6: return "6" + tail;
						default: return tail;
				}
			}
		}

[Plague]

Ага, не учел один случай в функции преобразования.
Теперь все правильно)

function p(a: array of integer): BigInteger;
var
  s := '';
  d := Arr('1', '7', '4', '2', '0', '8');
begin
  foreach var c in a do
    s += d[c - 2];
  if s[1]='0' then s[1]:='6';
  Result := s.ToBigInteger;
end;