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

Question

Мелания

7 октября, 21:07

+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;