Имеется программный фрагмент алгоритма поиска наименьшего из двух чисел, двоеточие заменяем соответствующим программным элементом .print («1 sandy engiz») х = вход ())
print ("2 песчаных энджиза")
y = вход ())
х <у:
к = х
:
к = у
print ("человек", k)​

Решение с использование длинной арифметики.
var
  i, j, n, len, rem: integer;
  a: array[1..200] of byte;
begin
  write('Введите число: ');
  read(n);
  len := 1;
  a[1] := 1;
  for i := n + 1 to 99 {100} do
  begin
    for j := 1 to len do
    begin
      rem := a[j] * i + rem;
      a[j] := rem mod 10;
      rem := rem div 10;
    end;
    while rem > 0 do
    begin
      inc(len);
      a[len] := rem mod 10;
      rem := rem div 10;
    end;
  end;
  writeln('Произведение чисел из интервала (', n, '; 100): ');
  for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000

Нужно найти количество программ, которые из 1 получают 10, количество программ, которые из 10 получают 21, но не проходит через 17 и перемножить найденные значения. Сначала найдём количество программ, получающих 10 из 1.

 

Обозначим R(n) — количество программ, которые преобразуют число 2 в число n.

 

Верны следующие соотношения:

1. Если n не делится на 2, то тогда R(n) = R(n - 1), так как существует единственный получения n из n - 1 — прибавление единицы.

2. Пусть n делится на 2.

Если n > 1, то R(n) = R(n / 2) + R(n - 1).

Если n = 1, то R(n) = 1 (два прибавление единицы и удвоение).

 

Теперь можно постепенно вычислить все значения:

R(2) = R(1) + R(1) = 1 + 1 = 2 = R(3)

R(4) = R(2) + R(3) = 2 + 2 = 4 = R(5),

R(6) = R(3) + R(5) = 2 + 4 = 6 = R(7),

R(8) = R(4) + R(7) = 4 + 6 = 10 = R(9),

R(10) = R(5) + R(9) = 4 + 10 = 14

 

Программ, получающих из числа 10 число 21, и не содержащих 17 всего одна: 21.

 

Тем самым, находим ответ: 14 · 1 = 14.

 

ответ: 14.

Объяснение: