Ернар набрал в блокноте текст, состоящий из двух абзацев. Проанализируйте и восстановите предложенную последовательность шагов работы процессора. 1) как обычно символ выводится на экран

2) повторить первые три шага для следующих символов абзаца (включая пробелы между словами)

3) при нажатии клавиши Enter курсор переходит на новую строку

4) редактирование и размещение в ОЗУ символа, введенного в двоичную форму кода с кодовых таблиц (например, Unicode или ASCII)

5) повторение первых трех шагов для следующих символов абзаца (включая пробелы между словами)

6) при нажатии клавиши с символом ее код передается процессору

Количество различных салатов R, которые можно приготовить, имея n продуктов и беря для приготовления k из них (k=2,3,... 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

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Цепь ИЗ "...\Отделы\Иное\";

ПЕР
  строка, память: РЯД 100 ИЗ ЗНАК;
  сч: ЦЕЛ;

УКАЗ
  ЕСЛИ ЧЕТ(ДЛИНА(строка)) ТО
    память[0] := строка[0];
    память[1] := 0X;
    Цепь.Добавить(память, "www");
    ОТ сч := 1 ДО ДЛИНА(строка) - 1 ВЫП
      память[сч + 3] := строка[сч]
    КОН;
    память[ДЛИНА(строка) + 3] := 0X
  ИНАЧЕ
    ОТ сч := 0 ДО ДЛИНА(строка) ДЕЛИТЬ 2 - 1 ВЫП
      память[сч] := строка[сч]
    КОН;
    ОТ сч := ДЛИНА(строка) ДЕЛИТЬ 2 + 1 ДО ДЛИНА(строка) - 1 ВЫП
      память[сч - 1] := строка[сч]
    КОН;
    память[ДЛИНА(строка) - 1] := 0X
  КОН

КОН Задание.