Все 5-буквенные слова, составленные из 5 букв а, к, л, о, ш, записаны в алфавитном порядке.вот начало списка: 1) 2) 3) 4) 5) 1) сколько всего 5-буквенных слов в этом спике? 2) какое слово следует за словом шалаш? 3) на каком месте от начала списка стоит слово школа? 4) какое слово стоит на 126 месте?

1) 5 буквенные слова, 5 возможных букв. перестановки с повторениями = 5*5*5*5*5 = 3125 вариаций ответ: 3125 2) мы  работаем со словами как с числами в 5ричной системе счисления. порядок символов а=0, к=1, л=2, о=3, ш=4 шалаш + k = 40204(5) + 1 = 40210(5) = шалка ответ: шалка 3) школа = 41320(5) =  4*5^4+1*5^3+3*5^2+2*5 = 2710(10) поскольку нумерация у нас начинается с 1, а первое число эквивалентно 0, то добавим единицу ответ: 2711 4) 126 место -> число 125(10) = 01000(5) =

Var a: array of integer; n,i,p,i1,i2: integer; begin write('n = '); readln(n); setlength(a,n); randomize; a[0]: =random(50)+100; write(a[0]: 4); for i: =1 to n-1 do   begin   a[i]: =a[i-1]-random(11);   write(a[i]: 4);   end; writeln; p: =a[0]-a[n-1]; writeln('p = ',p); i1: =0; i2: =n-1;   repeat i: =(i1+i2) div 2; if a[i]> p then i1: =i1+1; if a[i]< p then i2: =i2-1; until (a[i]=p)or(i1> =i2); if a[i]=p    then writeln('i = ',i)    else writeln('искомого элемента нет'); end. пример: n = 20   142 139 135 129 120 120 120 113 107 106 104   99   89   88   81   72   71   70   60   54 p = 88 i = 13

Const m=5; var  a: array[1..m,1..m] of integer; i,j: integer; begin randomize; writeln('исходный массив: '); for i: =1 to m do   begin   for j: =1 to m do   begin   a[i,j]: =random(100);   write(a[i,j]: 4);   end;   writeln;   end; for i: =2 to m do   for j: =1 to i-1 do     a[i,j]: =0;   writeln('полученный массив: '); for i: =1 to m do   begin   for j: =1 to m do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   12   76   20   65   71   27   52   36   45   52     9   69   8   69   46   89   69   52   76   31   71   25   7   62   89 полученный массив:   12   76   20   65   71     0   52   36   45   52     0   0   8   69   46     0   0   0   76   31     0   0   0   0   89