1)
function numb(n:integer):integer;
var
n,ch,st,max:integer;
begin
st:=1;
max:=-1;
ch:=n mod 10;
n:=n div 10;
while(n>0)do
begin
ch:=ch+(n mod 10)*st;
n:=n div 10;
st:=st*2;
end;
while(ch>0)do
begin
if(ch mod 10>max)then
max:=ch mod 10;
ch:=ch div 10;
end;
numb:=max;
end;
2)
function yravn(a,b:integer):integer;
begin
yravn:=-b div a;
end;
1.10*8 (256=2^i)=80 бит
2.1/6Мбайта=1/6*1024*1024*8(бит)=<span><span>1398101 бит ;V=k*i
</span></span>k=1398101/4 (16=2^i)=<span><span>349525,3
3.х=10500Мбайт/(30*70*8)=10500*1024*1024*8/</span></span>(30*70*8)=<span><span>5242880
V=(x*y*z)*i, </span></span>x,y,z - кол-во страниц, кол-во строк, <span>кол-во символов в строке соответственно</span>
Начало
Условие
Решение
Вывод
Конец