361,105 (10)=3*10^2+6*10^1+1*10^0+1*10^(-1)+0*10^(-2)+5*10^(-3)
224 (16)=2*16^2+2*16^1+4*16^0
521 (8)=5*8^2+2*8^1+1*8^0
111011 (2)=1*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0
B1. 360 бита=45 байт
В2. 2048 бит
В3. 256 символов в алфавите
В4. 70000 бит=8750 байт
В5. 64 символа в алфавите
Надеюсь, что решение не нужно)
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования
Program picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer;<span> a:array[1..10] of integer;</span>begin clrscr; <span> writeln('Vedite dlinu masiva');read(n);</span><span> writeln('Vedite granitu s leva');read(ls);</span><span> writeln('Vedite granitu s prava');read(ld);</span><span> for i:=1 to n do </span><span> begin</span><span> write('A[',i,']=');</span><span> readln(a[i]);</span><span> end;</span><span> min:=a[1];max:=a[1];</span><span> repeat</span><span> f:=1;</span><span> for i:=ls to ld-1 do</span><span> if a[i]<a[i+1] then </span><span> begin </span><span> aux:=a[i]; </span><span> a[i]:=a[i+1]; </span><span> a[i+1]:=aux; </span><span> f:=0; </span> end; until f=1; <span> for i:=ls to ld do</span><span> write(a[i]:3);</span><span> writeln;</span><span> writeln('min: ',a[ls],' max: ',a[ld]);</span><span> aux:=a[ls]; </span><span> a[ls]:=a[ld]; </span><span> a[ld]:=aux; </span><span> for i:=ls to ld do</span><span> write(a[i]:3);</span> end.<span>
</span>
1) 1200+ 990+25000+4500=31690
ответ: 31690