10(2)=0*2^0+1*2^1=2(10)
10(16)=0*16^0+1*16^1=16(10)
10(8)=0*8^0+1*8^1=8(10)
2(10)+16(10)+8(10)=26(10)
Program next;
var a,b,c,i,g,o:integer;
begin
g:=0;
b:= 0;
writeln('Сколько учахщихся?');readln(a);
for i=0 to a do
writeln('Средний бал у ',i,' ученика:');readln(c);
g:= g+c;
end;
o:= g/a;
writeln('Средний балл учащихся',o);
readln;
end.
для кодирования 16 символов потребуется 4 бита
2^4=16
40*4=160 бит=20 байт