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

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;

ответ:

program laba;

{$apptype console}

uses

  sysutils,

  windows;

var

  a: array[1..15] of integer;

  i,imax,x: integer;

begin

setconsoleoutputcp(1251);

  for i: =1 to 15 do

begin

writeln('введите',i,'-й элемент');

readln(a[i]);

end;

imax: =1;

for i: =2 to 15 do

if a[i]> a[imax] then imax: =i;

x: =a[15];

writeln('максимальное число = ',a[imax],' его индекс= ',imax);

if imax=15 then write('он последний, обмена нет');

else

  begin

  x: =a[imax];

  a[imax]: =a[15];

  a[15]: =x;

  writeln('обмен максимального и последнего: ');

  for i: =1 to 15 do

  write(a[i]: 6: 3,' ');

  end;

 

readln;

end.

объяснение:

sub swap()

    dim r as range, a as variant

    dim i as integer, im as double, n as integer, t as double

    n = 15

    set r = range(cells(1, 1), cells(1, n))

    a = r

    im = 1

    for i = 2 to n

        if a(1, i) > a(1, im) then

            im = i

        end if

    next i

    t = a(1, im)

    a(1, im) = a(1, n)

    a(1, n) = t

    set r = range(cells(2, 1), cells(2, n))

    r = a

end sub

на лист в ячейки а1 - о1 заносим исходные 15 чисел

на этот же лист через проект помещаем макрос и запускаем.

результат будет в ячейках а2 - о2