Напишите процедуру, которая выводит на экран переданное ей число в системе счис-ления, которая задается вторым параметром (от 2 до 10). !

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! procedure dectop(n,p: integer); { перевод из десятичной системы в систему по основанию p } begin   var s: ='';   while n> 0 do begin       s: =n mod p+s;       n: =n div p       end;   writeln(s) end; begin   var (n,k): =readinteger2('введите число и основание системы счисления: ');   if k.between(2,10) then dectop(n,k)   else writeln('основание системы счисления вне [2; 10]'); end.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160