Предмет: Информатика,
автор: maestro2012
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
Ответы
Автор ответа:
0
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;
var
i:integer;
k:int64;
begin
k:=1;
for i:=2 to n do k:=k*2;
ChessCell:=k
end;
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: marinaignatyuk09
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: viktorija39ru
Предмет: Математика,
автор: inessahat