Сколько символов содержит сообщение, записанное с 8-символьного алфавита, если его объем составил 1/16 часть мбайта?

Правильный ответ

J=1/16 мбайта =1/16 * 2^20 = 2^20 /2^4 =2^16 байт =2^19 бит i=8 бит= 2^3 бит количество символов к=j/i =2^19 / 2^3=2^16 =65536

Pascalabc.net 3.4 begin   var m: =readinteger('введите натуральное число не более 3999: ');   if not m.between(1,3999) then writeln('недопустимое значение')   else   begin       write(m,' = ');       var ar: array of string: =               ('m','cm','d','cd','c','xc','l','xl','x','ix','v','iv','i');       var aa: =arr(1000,900,500,400,100,90,50,40,10,9,5,4,1);       var n: =0;       var s: string: ='';       while m> 0 do       begin           while aa[n]< =m do           begin               s+=ar[n];               m-=aa[n];           end;           n+=1       end;       writeln(s)   end end.

Решение в натуральных числах *** текст программы на pascalabc.net *** begin   var (x,y,z): =readinteger3('введите x,y,z: ');   var (a1,a2,a3): =readinteger3('введите максимальные значения t1,t2,t3: ');   var k: =0;   for var t1: =1 to a1 do       for var t2: =1 to a2 do           for var t3: =1 to a3 do               if x*t1-y*t2-z*t3=0 then k+=1;   if k=0 then writeln('решений нет')   else   begin       writeln('найдено решений: ',k);       if readinteger('выводить решения? (1-да): ')=1 then       for var t1: =1 to a1 do           for var t2: =1 to a2 do               for var t3: =1 to a3 do                   if x*t1-y*t2-z*t3=0 then                       writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0')   end;   writeln('работа программы завершена') end. *** пример работы с программой *** введите x,y,z: 3 5 7 введите максимальные значения t1,t2,t3: 10 10 10 найдено решений: 3 выводить решения? (1-да): 1 3x4-5x1-7x1=0 3x8-5x2-7x2=0 3x9-5x4-7x1=0 работа программы завершена