А) 100(10) = 64 + 32 + 4 = 2^6 + 2^5 + 2^2 = 1100100(2)
Б) 187(10) = 2*64 + 7*8 + 3 = 2*8^2 + 7*8 + 3 = 273(8)
В) 2572(10) = 10*256 +0*16 + 12 = A0C(16)
Г) 1458(10) = 2*625 + 125+ 3*25 +5+3 = 2*5^4 + 5^3 + 3*5^2 + 5 + 3 = 21313(5)
Д) 53(10) = 27 + 2*9 + 2*3 + 2 = 3^3 + 2*3^2 + 2*3 + 2 = 1222(3)
1)1 байт = 8 бит
12288/8 = 1536 байт
2)К=2048, I-1/512 Mб, i-?
решение: I=K*i i=I/K
I=1/512*1024*1024*8=16384 бит
i=I/K=16384/2048=8 бит
если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Const n=4; { любое число N от 1 до 100000}
var a:array [1..n] of integer;
b,min,max, s:integer;
proizvedenie:real;
beginwriteln('Введите n чисел');
for b:=1 to n do read (a[b]);
for b:=1 to n do
write(a[b],' ');
min:=a[1];
max:=0;
for b:=1 to n do
begin
if a[b]>max then max:=a[b];
if a[b]<min then min:=a[b];
end;
proizvedenie:=max-min;
writeln;
writeln('minimum ',min,' ','maximum ',max,' Proizvedenie= ',proizvedenie); readln;
<span>end.</span>