Угол - это часть плоскости, ограниченная двумя лучами, выходящими из одной точки.
Точка называется вершиной угла, а лучи - сторонами угла.
Если стороны угла образуют прямую (являются дополнительными лучами), то угол называется развернутым.
Углы измеряются в градусах. Градус - это 1/180 часть развернутого угла.
Виды углов в зависимости от градусной меры:
Если градусная мера угла меньше 90°, то угол острый.
Если градусная мера угла равна 90°, то угол прямой.
Если градусная мера угла больше 90°, но меньше 180°, то угол тупой.
Если градусная мера угла равна 180°, то угол развернутый.
Два угла называются вертикальными, если их стороны являются дополнительными лучами.
Свойство вертикальных углов: вертикальные углы равны.
Два угла называются смежными, если одна сторона у них общая, а две другие являются дополнительными лучами.
Свойство смежных углов: сумма смежных углов равна 180°.
Биссектриса угла - это луч с началом в вершине угла, который делит угол на две равные части.
Количество зёрен на клетке будет равно 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.