Есть ответ 👍

Вот слово из словаря напиши буквы в окнах так чтобы для этого слова оба утверждения были истиными это слово идет в словаре раньше слова щенок это слово идет в словаре поже слова конец

200
220
Посмотреть ответы 2

Ответы на вопрос:

ksastaff
4,4(59 оценок)

Щетка или кончик я так думаю

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

function cnk(n, k: integer): biginteger;

begin

  if (n = 0) or (n = k) then result : = 1

  else

  begin

    var (p1, p2) : = (biginteger(1), biginteger(1));

    for var i : = 2 to n - k do

      p2 *= i;

    for var i : = k + 1 to n do

      p1 *= i;

    result : = p1 div p2

  end

end;

begin

  var n : = readinteger('n=');

  if n = 0 then print(1)

  else

  begin

    var st : = new stack< biginteger> ;

    for var i : = 0 to n div 2 do

    begin

      var b : = cnk(n, i);

      b.print;

      st.push(b)

    end;

    if n.iseven then st.pop;

    while st.count > 0 do

    begin

      st.peek.print;

      st.pop

    end

  end

end.

пример

n= 50

1 50 1225 19600 230300 2118760 15890700 99884400 536878650 2505433700 10272278170 37353738800 121399651100 354860518600 937845656300 2250829575120 4923689695575 9847379391150 18053528883775 30405943383200 47129212243960 67327446062800 88749815264600 108043253365600 121548660036300 126410606437752 121548660036300 108043253365600 88749815264600 67327446062800 47129212243960 30405943383200 18053528883775 9847379391150 4923689695575 2250829575120 937845656300 354860518600 121399651100 37353738800 10272278170 2505433700 536878650 99884400 15890700 2118760 230300 19600 1225 50 1

Популярно: Информатика