Паскаль: напишіть програму обчислення добутку а(а+1)(а++n-1)

Program zd; var   a,  n, i, res: integer; begin   writeln('input the a:   ');   read(a);   writeln('input the n:   ');   read(n);   res: =a;   for  i: =1 to n - 1 do     res: =res * (a + i);   writeln('результат:   ', res); end.

//pascalabc.net 3.2 сборка 1318 var   libonachi: array of integer;   n,i,res: integer; procedure libonachicomputer(var vals: array of integer; var i: integer); begin   if i< =20 then     begin       vals[i]: =vals[i-1]+vals[i-2];       inc(i);       libonachicomputer(vals,i);     end; end; begin n: =21; i: =2; res: =0; setlength(libonachi,n); libonachi[0]: =1; libonachi[1]: =-1; libonachicomputer(libonachi,i); for i: =15 to 20 do res+=libonachi[i]; writeln(res); end. вывод: -6388

1) 54525952 (байт) / 2048 = 26624 (байт) - это количество байт в одной группе

2) 26624 (байт) = 212992 (бит) - делем на 8 т.к. в 1 байте 8 бит

3) 212992 (бит) / 16384 = 13 (бит) - столько весит 1 символ.

следующие действие берутся из: 2 ^ бит > = количество символов

4) (2 ^ (13-1)) + 1 = 4097 - это минимальное колличество различных символов.

5) 2 ^ 13 = 8192 - максимальное количество различных символов.

ответ:

                          различных символов в используются от 4097 до 8192.