Она велит его сначала ловит рыбу (еду ) ну или принести еду! А когда старик пошел ловить рыбы из моря а случайно ловилась золотая рыбка и она попросила старика отпустить ее потом она исполнит его любое желание и старик отпустил рыбку а потом старик расказал все старухе а тогда старуха и начала командовать им
Для вычисления используется формула I=log₂N=log₂15≈4
var i,l,k,n,p:integer;
s:string;
Z: set of char;
A: array[1..100] of real;
B: array[1..100] of char;
R,Buf:real;
function F(A:real; Z:char; B:real):real;
begin
case Z of
'+': result:=A+B;
'-': result:=A-B;
'*': result:=A*B;
'/': result:=A/B;
end;
end;
begin
Assign(input,'input.txt');
Assign(output,'output.txt');
Reset(input);
Rewrite(output);
Readln(S);
close(input);
L:=length(s);
k:=0;
n:=0;
Z:=['+','-','*','/'];
for i:=1 to L do
if not(S[i] in Z) then begin
inc(k);
A[k]:=StrToInt(S[i]);
end
else begin
inc(n);
B[n]:=S[i];
end;
if (S[1] in Z) then
begin
if s[1]='-' then A[1]:=A[1]*(-1);
for i:=1 to n do
b[i]:=b[i+1];
dec(n);
<span> end;
</span> i:=0;
While (i<n) do
begin
inc(i);
if ((B[i]= '*') or (B[i]='/')) then
begin
buf:=F(A[i],B[i],A[i+1]);
A[i]:=buf;
for p:=i+1 to k do
A[p]:=A[p+1];
for p:=i to n do
B[p]:=B[p+1];
dec(n);
dec(i);
end;<span>
end;</span> R:=A[1];
for i:=1 to n do
if not((B[i]= '*') or (B[i]='/')) then
R:=F(R,B[i],A[i+1]);
writeln(R);
Close(output);
end.
по нубски правдо очень проверить не забудь)
var
a,n,c:integer;
x,y:real;
begin
readln(a);
readln(n);
readln(c);
if ((a > n) and (n > c)) then begin
x:=(a+n)/2;
y:=(n+c)/2;
end else if((n > a) and (a > c)) then begin
x:=(a+n)/2;
y:=(a+c)/2;
end else if((c > a) and (a > n)) then begin
x:=(a+c)/2;
y:=(a+n)/2;
end else if((c > n) and (n > c)) then begin
x:=(c+n)/2;
y:=(n+c)/2;
end else if((n > c) and (c > a)) then begin
x:=(c+n)/2;
y:=(a+c)/2;
end else if((a > c) and (c > n)) then begin
x:=(c+a)/2;
y:=(n+c)/2;
end else if((c > n) and (n > a)) then begin
x:=(c+n)/2;
y:=(n+a)/2;
end;
write('наибольшее: ',x,' наименьшее: ',y);
end.
Переведём скорость передачи из бит в Кб.
256000 бит/с = 31,25 Кб/с.
Теперь просто умножим скорость на время.
31,25 Кб/с * 15с = <span>468,75 Кб.</span>