Question

Задача A. Охотники В племени болотных троллей Муа есть n охотников. На охоту должен пойти хотя бы один охотник. И хотя бы один охотник должен остаться с племенем — охранять его от случайных зверей. Сколько способов выбрать, кто пойдёт на охоту, а кто останется с племенем? Формат входных данных В первой строке записано целое число n — количество охотников в племени Муа (1 6 n 6 12). Формат выходных данных В первой строке выведите одно целое число — количество способов выбрать, кто пойдёт на охоту, а кто останется с племенем. Примеры стандартный ввод стандартный вывод 2 2 3 6 Пояснения к примерам В первом примере два тролля — пусть это Том и Берт. На охоту может пойти Том, а может — Берт. Второй тролль при этом останется с племенем. Во втором примере три тролля — пусть это Том, Берт и Вильям. Есть шесть вариантов того, кто пойдёт на охоту: Том; Берт; Вильям; Том и Берт; Том и Вильям; Берт и Вильям. Подскажите как написать программу в Паскале (или напишите ее если не сложно)

Answer 1

Ответ:

var a: int64;

begin

 readln(a);

 writeln(Power(2,a)-2);

end.

Объяснение:

N=$2^{i}$

Answer 2

Для решения этой задачи вам нужно вычислить количество способов выбрать, кто пойдет на охоту, а кто останется с племенем. Это задача на комбинаторику, и можно использовать формулу сочетаний.

Вот программный код на Паскале для решения данной задачи:

pascalCopy code
program TrollHunters;

function Factorial(n: integer): int64;
var
  i: integer;
begin
  Result := 1;
  for i := 1 to n do
    Result := Result * i;
end;

function Combinations(n, k: integer): int64;
begin
  Result := Factorial(n) div (Factorial(k) * Factorial(n - k));
end;

var
  n: integer;
begin
  // Ввод количества охотников
  readln(n);

  // Вычисление количества способов
  writeln(Combinations(n, 1) + Combinations(n, 2));

end.

Этот код определяет две функции: Factorial для вычисления факториала числа и Combinations для вычисления количества сочетаний.

Затем программа считывает количество охотников n и использует функцию Combinations для вычисления количества способов выбора, кто пойдет на охоту, а кто останется с племенем. Результат выводится на экран.

Просто скопируйте этот код в среду программирования Pascal и выполните его, чтобы решить задачу.