Unsigned 32 bit
max: +4 294 967 295
min: 0
Ответ:
2 5 3 1 6 4 7
Объяснение:
http://baza.uk/party.docx
var a,b,c: integer;
begin
readln (a,b,c);
if ((a > b) and (a < c)) or ((a < b) and (a > c)) or ((a<b) and (b=c)) or ((a<b) and (a=c)) or ((a<c) and (a=b)) then writeln(a)
else if ((b > a) and (b < c)) or ((b < a) and (b > c)) then writeln(b)
else writeln(c);
end.
Var
b:array[1..100001] of integer;
var a,c,i:integer;
begin
c:=0;
write('десятичное число: ');
readln(a);
while a<>0 do
begin
if a mod 2 = 0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=0;
end;
if a mod 2 <>0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=1;
end;
end;
write('двоичное число: ');
for i:=c downto 1 do
write(b[i])
end.
128*32=4096 символов на одной странице
N=2^I
Где I- кол-во информации, N-содержание, информация.
N=256 I=8 бит
4096*8=32768 бит=4 Кбайт на каждой странице
15440\4=3860 страниц
1 лист =2 страницы
3860\2=1930 листов в книге