Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в заданную систему счисления с любым основанием от 2 до 9. используйте процедуру. входные данные : 25 3 выход: 221 входные: -38 9 выходные: -42

Function dec2n(dec,n: integer): string; var   d: byte;   ch: char;   s,sgn: string; begin       s: ='';       if dec< 0 then begin sgn: ='-'; dec: =-dec end       else sgn: ='';       while dec> 0 do           begin           d: =dec mod n;           ch: =chr(ord('0')+d);           s: =ch+s;           dec: =dec div n       end;       dec2n: =sgn+s end; var   m,n: integer; begin   write('введитt целое десятичное число и основание для перевода (2-9): ');   read(m,n);   writeln(dec2n(m,n)) end. тестовое решение 25 3 221 -38 9 -42

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.