Program Bally;
var a:array[1..250] of string;
N,l,max,x,i,b,p:integer;
z,k:string;
begin
max:=0;
readln(N);
for i:=1 to N do readln(a[i]);
z:=a[1];
l:=Pos(' ',z); Delete(z,1,l);
l:=Pos(' ',z); Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); max:=max+x;
for i:=2 to N do begin
z:=a[i];
b:=0;
l:=Pos(' ',z); Delete(z,1,l);
l:=Pos(' ',z); Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); b:=b+x;
if b>max then max:=b;
end;
for i:=1 to N do begin
z:=a[i];
b:=0;
l:=Pos(' ',z);
p:=l;
Delete(z,1,l);
l:=Pos(' ',z); p:=p+l;
Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); b:=b+x;
if b=max then begin
z:=a[i];
delete(z,p,length(z)-p+1);
writeln(z);
end;
end;
end. Наверное так!!
1. 262144 бит = 262144/8 байт = 32768 байт = 32768/1024 Кбайт = 32 Кбайт<span>
2. 16384 бит = 16384/8 байт = 2048 байт = 2048/1024 </span>Кбайт = 2 Кбайт<span>
3. 131072 бит = 131072/8 байт = 16384 байт = 16384/1024 </span>Кбайт = 16 Кбайт<span>
4. 1/4 Кбайт = 1024/4 байт = 256 байт = 8*256 бит = 2048 бит
5. 227 бит = 227/8 байт = 227/(8*1024) Кбайт = 227/(8*1024*1024) Мбайт </span>≈ 0,000027 Мбайт<span>
6. 10 Кбайт = 10*1024 байт = 10240 байт = 10240*8 бит = 81920 бит = 81920/1000 Кбит = 81,92 Кбит
7. 2048 бит = 2048/1000 Кбит = 2,048 Кбит
8. 2 Кбит = 2*1000 бит = 2000/8 байт = 250 байт</span>
1 байт = 8 бит
128 000 бит делим на 8 = 16000 байт/сек.
Дальше
1 Кб = 1024 байта
250 Кб х 1024 байта = 256 000 байт
Делим их на скорость (16 000 байт за сек)
и получаем 256000/16000 = 16 сек.