Количество зёрен на клетке будет равно 2^(N-1)
Тут сказано использовать переменную типа integer, при этом надо помнить, что максимальный номер клетки, который можно задавать равен 31 (для номеров выше будет либо ошибка, либо неверный ответ).
Чтобы считать зерно вплоть до последней, 64-ой клетки шахматной доски- надо менять тип на uint64 либо BigInteger (но, они не везде доступны да и программу надо будет править).
Вариант с циклом loop (в нём задаётся число повторов)
function Zern2(a: integer): integer;
begin
Result := 1;
loop a-1 do
Result := Result * 2;
end;
begin
var n,m: integer;
write('Введите номер клетки: ');
Read(n);
m:=Zern2(n);
write('Зёрен на этой клетке: ',m,' шт.');
end.
Вариант с циклом while:
function Zern2(a: integer): integer;
begin
Result := 1;
while a>1 do
begin
Result := Result * 2;
a := a - 1;
end;
end;
begin
var n,m: integer;
write('Введите номер клетки: ');
Read(n);
m:=Zern2(n);
write('Зёрен на этой клетке: ',m,' шт.');
end.
Вариант без цикла:
function Zern2(a: integer): integer;
begin
Result := Trunc(power(2,a-1));
end;
begin
var n,m: integer;
write('Введите номер клетки: ');
Read(n);
m:=Zern2(n);
write('Зёрен на этой клетке: ',m,' шт.');
end.
Объяснение:
Позиционная систе́ма счисле́ния (позиционная нумерация) — система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).
Системы счисления в культуре
Индо-арабская
Арабская
Тамильская
Бирманская
Кхмерская
Лаосская
Монгольская
Тайская
Восточноазиатские
Китайская
Японская
Сучжоу
Корейская
Вьетнамская
Счётные палочки
Алфавитные
Абджадия
Армянская
Ариабхата
Кириллическая
Греческая
Грузинская
Эфиопская
Еврейская
Акшара-санкхья
Другие
Вавилонская
Египетская
Этрусская
Римская
Дунайская
Аттическая
Кипу
Майяская
Эгейская
Символы КППУ
Позиционные
2, 3, 4, 5, 6, 8, 10, 12, 16, 20, 60
Нега-позиционная
Симметричная
Смешанные системы
Фибоначчиева
Непозиционные
Единичная (унарная)