Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего > польза не во многих, но в хороших книгах. ответ представьте в битах

40 * 1 = 40 байт (40 символ)

40 * 8 = 320 бит

Uses crt; var r: array [1..10] of integer;         nev, n, min,i, zap: integer; begin     clrscr;     write('введите возраст невесты: '); readln(nev);     write('введите число женихов: '); readln(n);     if n< 2 then     for i: =1 to n do     begin     write('введите возраст ',i,'-го жениха: '); readln(r[i]);     end;     i: =0; zap: =0;     while (zap=0) and (i< =n) do begin         i: =i+1;       min: =nev-r[i];       if min> 0 then zap: =i;     end;     if i< > n then     begin       for i: =zap to n do       begin           if min> (nev-r[i]) then           begin             zap: =i;             min: =nev-r[i];             end;         end;       writeln('самый молодой жених старше невесты в возрасте ',r[zap], ' лет. разница в возрасте составляет ', min, ' лет.');       writeln ('по счету это ',i,'-ый жених');     end     else writeln('среди женихов нет подходящего для нашей невесты.');   end;   else writeln('число женихов должно быть более 2! '); end.        

Решение с использование длинной арифметики. var   i, j, n, len, rem: integer;   a: array[1..200] of byte; begin   write('введите число: ');   read(n);   len : = 1;   a[1] : = 1;   for i : = n + 1 to 99 {100} do   begin       for j : = 1 to len do       begin           rem : = a[j] * i + rem;           a[j] : = rem mod 10;           rem : = rem div 10;       end;       while rem > 0 do       begin           inc(len);           a[len] : = rem mod 10;           rem : = rem div 10;       end;   end;   writeln('произведение чисел из интервала (', n, '; 100): ');   for i : = len downto 1 do write(a[i]); end. пример работы программы: введите число: 1 произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000