Как постройте электронную таблицу для перевода целого десятичного числа в систему счисления с основанием р (2≤р≤9 протестируйте работу таблицы

Для получения результата нажми кнопку "=". сюда вставить ексель-документ не дает. скинул сюда:

Const n=20; var i,f,k,j: integer; s: string; a: array[1..n] of string; begin k: =0; j: =0; writeln('введите количество строк в массиве'); readln(f); writeln('заполните массив'); for i: =1 to f do readln(a[i]); for i: =1 to f do begin   j: =pos('d',a[i]);   s: =a[i];   while (pos('a',s)< j) and (pos('a',s)< > 0) do     begin     delete(s,pos('a',s),1); j: =j-1;     end;   if pos('a',s)> j then k: =k+1;   end; if k=0 then writeln('таких строк нет') else writeln('такие строки есть'); end.

20 страниц, в каждой 5 строк по 20 символов. всего символов   в книге: 2000. переведем вес всей книги в байты: 5.86*1024=6000.64байт. а затем в биты: 6000.64*8=48005,12бит в книге.    следовательно, один символ занимает 48000.12/2000=24.00256 бита. но так как биты дробными не бывают, получается, что на один символ тратится 25 бит. теперь узнаем, сколько символов может быть в алфавите, если на кодировку одного символа уходит 25 бит. это считается по формуле n=2^i n=2^25=33554432 символов, что похоже на маразм. видимо условие не совсем точно)