Вычислить количество зерен на любой N-ой клетке шахматной доски - Pascal ABC

Формулировка задачи:

Индийский раджа Шерам позвал к себе изобретателя шахмат ученого Сету и предложил, чтобы тот сам выбрал себе награду за создание столь интересной и мудрой игры. Сета попросил выдать ему за первую клетку шахматной доски 1 пшеничное зерно, за вторую – 2, за третью – 4, за четвертую – 8, за пятую – 16 и т. д., удваивая количество зерен за каждую следующую клетку. Жадный раджа обрадовался столь низкой плате и приказал слугам немедленно выдать награду. Но, как оказалось, сделать это было почти невозможно... Узнайте, почему? Составьте программу, которая могла бы вычислить: • Количество зерен на любой N-ой клетке шахматной доски. • Сумму всех зерен до N-ой клетки включительно.

Решение задачи: «Вычислить количество зерен на любой N-ой клетке шахматной доски»

Листинг программы

k:=power(2,n-1);

Объяснение кода листинга программы

В первой строке кода переменной k присваивается значение power(2,n-1), где 2 - это основание системы счисления, а n-1 - номер клетки на которой нужно вычислить количество зерен. Функция power используется для возведения числа в степень.
Значение k представляет собой количество зерен на N-ой клетке шахматной доски.
В данном случае используется формула для вычисления количества зерен на N-ой клетке шахматной доски, которая зависит от основания системы счисления и номера клетки.