Все 5 буквенные слова, составленные из 5 букв а, к, л, о, ш записанные в алфовитном порядке. вот начало списка: сколько всего 5-буквенных слов в этом списке? какое слово следует за словом шалаш? на каком месте от начала списка стоит слово школа? какое слово стоит на 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) =

ответ:

program examplen;

uses math;   // объявление функций для вашей версии паскаля

var

  a, b, d, s, y1, y2, x: double;

begin

  write ('введете границы отрезка: ');

  readln (a, b);

  s : = 0;

  d : = (b - a) / 10;             // длина 1/10 отрезка

  x : = a + d / 2;                 // начальное значение х = левая граница + половина отрезка (середина основания)

  while x < b do begin           // цикл по всей длине отрезка

    y1 : = sqr (x);

    y2 : = 5 + x / 2;

    s : = s + abs (y1 - y2) * d;   // расчет площади прямоугольника и суммирование

    x : = x + d;                   // увеличение х на 1/10 отрезка

  end;

  writeln ('площадь = ', s : 20 : 10);

  readln;

end.

Function isprime(m: integer): boolean; var   i: integer;   p: boolean; begin   p : = true;   for i : = 2 to m - 1 do       if (m mod i) = 0 then p : = false;   isprime : = p end; var   n, i, j: integer;   flag: boolean; begin   repeat       write('введите натуральное число, большее 2 : ');       readln(n);       flag : = (n < 2) or (n mod 2 = 1);       if flag then           writeln('число введено с нарушением, повторите ввод');   until not flag;   writeln('варианты представления числа в виде суммы двух простых: ');   for i : = 1 to n do       for j : = 1 to (n div 2) do           if (isprime(i) and isprime(j)) and (i + j = n) then writeln(i, '+', j); end. тестовое решение: введите натуральное число, большее 2: 110 варианты представления числа в виде суммы двух простых: 67+43 73+37 79+31 97+13 103+7 107+3 109+1