Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
1)1<span>462
2)</span>110101<span>100
3)</span>2<span>671
4)</span><span>101000111000
А последний в какой системе надо?
</span>
Объяснение:
3*10^4+2*10^3+6*10^2+7*10^1
Var x,y,k,err:integer;s:string;d,e:real;
begin
err:=0;
read (x,y);
d:=max (x+y,y-x) + 3;
e:=min (sqr(x)+sqr(y),sqr(y)+x*y) - 4;
str (e,s);
k:=length(s);
val (s,e,err);
if (d<e) then
begin
d:=d+(e div (10*(k-1)));
end else
begin
d:=power (d,1/(e div (10*(k-2))));
end;
writeln (d);
end.
1. Изначально каждый символ кодировался одним байтом, в результате перекодировки стал кодироваться двумя - объем сообщения удвоился. Таким образом, в исходном сообщении 2*1024*1024/2 символов.
2. Аналогично - 8000 битов.
3. Берешь таблицу символов и декодируешь
4. ceil(8192/32/40)=7 листов (ceil - округление до ближайшего БОЛЬШЕГО целого)
5. ceil(12*1024/64/32)=6 листов
6. 2^(10240*8/(40*32*8))=2^8=256 (^ - возведение в степень)
<span>7. 14400*8/(3*40*60)=16 битов.</span>