PascalABC.NET официальный канал

7
2
18
48
49
102
95
15
68

var count, cnt: array['A'..'Z'] of integer;

begin
  Assign(input, '24.txt');
  
  while not eof do
  begin
    var s := ReadlnString;
    
    for var i := 2 to s.Length do
      if s[i - 1] = 'A' then 
        cnt[s[i]] += 1;
    
    var max := cnt.Max;
    
    for var c := 'A' to 'Z' do
      if cnt[c] = m then 
        count[c] += 1;
  end;
  
  Print(count.Max);
end.

function F(a, limit, sm, pr: integer): integer;
begin
  if (a = limit) and (sm <= 1) and (pr <=1) then
    Result := 1
  else if (a > limit) or(sm > 1) or (pr > 1) then
    Result := 0
  else
    Result := F(a+1, limit, sm+1, 0) + F(a+2, limit, sm+1, 0) + 
      F(a*2, limit, 0, pr+1) + F(a*3, limit, 0, pr+1)
end;

begin
  Print(F(1, 22, 0, 0));
end.

Загадано: 8170 
1. Ход=1846  Коров: 2  Быков: 0  ОсталосьВариантов: 1155 
   2014 2018 2061 2064 2068 2081 2084 2104 2108 2134 2138 2154 2158 2160 2163 2165 2167 2169 2174 2178
2. Ход=6780  Коров: 2  Быков: 1  ОсталосьВариантов: 53 
   2687 2768 3687 3768 4087 4670 4708 5687 5768 6017 6028 6038 6058 6071 6074 6098 6107 6208 6278 6308
3. Ход=8765  Коров: 1  Быков: 1  ОсталосьВариантов: 8 
   4708 7160 7460 8170 8470 8620 8630 8690
4. Ход=8620  Коров: 0  Быков: 2  ОсталосьВариантов: 2 
   8170 8470
5. Ход=8170  Коров: 0  Быков: 4  ОсталосьВариантов: 1 
   8170
Решение = 8170  Ходов: 5

begin
  var x := Arr(1..10);
  Print(x[1:^1][5]);
end.