В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
Код процедуры:
procedure print_fib(n: integer);
var a, b, t: integer;
begin
a := 0;
b := 1;
while n > 0 do
begin
write(b, ' ');
b := a + b;
a := b - a;
n := n - 1;
end;
end;
Пример основной программы:
begin
print_fib(10)
end.
Вывод:
1 1 2 3 5 8 13 21 34 55
Не совсем понял о какой таблице речь.
Представляем буквы числами от 0 до 4. А-0, Р-1, У-2, К-3, О-4
получается список на первом месте которого 00000, а на последнем 44444
Переводим последнее число из пятеричной системы счисления в десятеричную и прибавляем единицу (т.к. отсчет начинается с нуля, а нумерация с 1)
Получаем: Всего 3125 комбинаций
По той же логике на 517 месте стоит число 516.
Переводим его в пятеричную систему - 04031
Подставляем вместо цифр буквы.
Под номером 517 находится комбинация - АОАКР
Теперь обратное, вместо букв цифры - 32143
Переводим в десятичную систему и прибавляем 1.
Курок находится под номером 2174