{как-то раз, придя домой со школы, света обнаружила записку от мамы, в которой она просила сделать салат. света знала, что салат – это смесь двух или более ингредиентов, поэтому ей не составило труда выполнить мамину просьбу. но света хочет стать , поэтому, для тренировки, решила посчитать, сколько различных салатов она сможет сделать из имеющихся продуктов (майонез, огурцы, помидоры). после небольших расчетов она получила ответ: 4. зная, что вы любите интересные , и хотите стать программистами, света попросила вас написать программу, которая определяет количество различных салатов для произвольного числа ингредиентов.}подскажите формулу

Количество различных салатов r, которые можно приготовить, имея n продуктов и беря для приготовления k из них (k=2, n-1), в определяется, как число размещений из n по k и определяется по следующей формуле: формула красивая, короткая, но неудобная для вычисления. в самом деле, надо найти три факториала, каждый из которых может оказаться достаточно большим числом. но можно сделать небольшое преобразование и вычисление. но это было вычисление r только для конкретного k при заданном n. нам же нужно найти сумму r для всех k от 2 до n. и да, для k=n формула не предназначена, но зато мы и так понимаем, что для такого случая r=1. свелась к нахождению обычной суммы // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! function c(n,k: integer): integer; begin   if n=k then result: =1   else begin       var p: =1.0;       for var i: =1 to n-k do p: =p*(k+i)/i;       result: =round(p);       end; end; begin   var n: =readinteger('кол-во продуктов: ');   var s: =1;   for var i: =2 to n-1 do s: =s+c(n,i);   writeln('кол-во салатов: ',s) end. примеры: кол-во продуктов:   3 кол-во салатов: 4 кол-во продуктов:   5 кол-во салатов: 26 кол-во продуктов:   10 кол-во салатов: 1013

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end.