Сообщение занимает 8 страниц по 30 строк, в каждой строке записано по 70 символов. Информационный объем всего сообщения равен 21000 байт. Каков информационный вес одного символа? Сколько символов в алфавите языка, на котором записано это сообщение?​

значение формулы срзнач=(d1: d4) равно 5

  можно подставить любые числа и проверить, в любом случае будет 5. а еще в диапазоне d2: d4 3 ячейки, сумма 15, добавилась еще одна ячейка d1,  в ней значение 5. 15+5=20, а среднее 20: 4=5

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 : integet;  

begin

writeln ('vvedit # bileta');

readln (a);

t: =a div 100000;

r: =a mod 100000 mod 10000 mod 1000 mod 100 mod 10;   {барыжна строчка; )   }

n: =9; s: =0; s2: =0;

for i: =1 to n do begin        

h: =t mod i; if h=0 then s: =s+1;

h2: =r mod i;   if h2=0 then s2: =s2+1;

end;

if (h=2) and (h2=2) then writeln ('bilet shasliviy');

else writeln ('bilet obichniy tramvayniy=)');

readln

end. 

program dl9_alina73; var a: array [1..3,1..3] of real;

b: array [1..3,1..3] of real;  

c: array [1..3,1..3] of real;  

i,q: integer;

begin

randomize;   for i: =1 to 3 do begin

for q: =1 to 3 do begin

a[i,q]: =random(10)

end end;  

  for i: =1 to 3 do begin

for q: =1 to 3 do begin

b[i,q]: =random(5);

end end;  

  for i: =1 to 3 do begin

writeln;  

for q: =1 to 3 do begin

c[i,q]: =a[i,q]*b[i,q];

write (c[i,q]) 

  end end;

readln

end. 

1) в десятичной: 15408324071457

    в шестнадцатиричной: e0387aed021

2) в десятичной: 1288618240

    в шестнадцатиричной: 4ccec100