Пятиклассник вася изучает многозначные числа. сегодня он решил рассмотреть суммы цифр числа. оказывается, числа с одинаковыми суммами цифр могут сильно различаться. например, числа 9 и 111111111 имеют одинаковые суммы цифр, но различаются на 111111102. более того, даже если зафиксировать число цифр в числе, это не сильно изменит ситуацию. например, у шестизначных чисел 123456 и 909030 суммы цифр , но они различаются довольно существенно. васю заинтересовал разумный вопрос: насколько сильно могут различаться два n-значных числа с одинаковой суммой цифр. входные данные в единственной строке входного файла input.txt записано натуральное число n (1 ≤ n ≤ 18). выходные данные в единственную строку выходного файла output.txt нужно вывести одно целое число – ответ на заинтересовавший васю вопрос.

Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readalltext('input.txt').tointeger;

  writealltext('output.txt',

      n = 1 ? '0' : '7' + '9' * (n - 2) + '2')

end.

1. var   a: array[0..7,0..13] of integer;   b: array[0..255] of integer;   i,j,k: byte;   s: integer;   sr: real; begin   randomize;   s: =0;   k: =0;   for i: =0 to 7 do   begin     for j: =0 to 13 do     begin       a[i,j]: =random(20);       write(a[i,j]: 4);       if a[i,j] mod 2< > 0         then         begin           s: =s+a[i,j];           k: =k+1;         end;     end;     writeln;   end;   sr: =s/k;   k: =0;   writeln;   for i: =0 to 7 do     for j: =0 to 13 do     if (a[i,j] mod 2=0) and (a[i,j]> sr)       then       begin         k: =k+1;         b[k]: =a[i,j];         write(b[k]: 4);       end; end.2.  var  a: array[0..9,0..9] of integer;   b: array[0..255,0..1] of integer;   i,j,k: byte;   s,ss,min: integer;   flag: boolean; begin  randomize;   s: =0;   k: =0;   for i: =0 to 9 do  begin    for j: =0 to 9 do    begin      a[i,j]: =random(20);       write(a[i,j]: 4);       b[i,0]: =a[i,j]+b[i,0];       b[i,1]: =i;     end;     writeln;   end;   writeln;   flag: =false;   min: =10*20+1;   for i: =0 to 9 do    begin    for j: =i to 9 do      if min> b[j,0]      then        begin        min: =b[j,0];         k: =j;         flag: =true;         end;     if flag      then      begin      s: =b[i,0]; //замена      ss: =b[i,1];       b[i,0]: =b[k,0];       b[i,1]: =b[k,1];       b[k,0]: =s;       b[k,1]: =ss;       flag: =false;       min: =10*20+1;       end;     end;   for i: =0 to 9 do    begin    writeln;     for j: =0 to 9 do      write(a[b[i,1],j]: 4);     end; end.