Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зе...

Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
Гость
Ответ(ы) на вопрос:
Гость
function ChessCell(n:integer):int64; var   i:integer;   k:int64; begin   k:=1;   for i:=2 to n do k:=k*2;   ChessCell:=k end;
Не нашли ответ?
Ответить на вопрос
Похожие вопросы