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

еденорожек12 еденорожек12    3   09.06.2019 04:20    28

Ответы
krasnov595egr krasnov595egr  08.07.2020 01:30
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;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика