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

Question

Ануфрий

8 февраля, 00:06

+2

Ответы (1)

Знаешь ответ?

Леонтинка · Answer 1

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;