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. Наверное так!!
Ключ( ключ от двери и родниковый ключ), кольцо(на палец или дорожное), мир(как вселенная или как отсутствие войны).
5)137:2=68 ост. (1)68:2=34 (0) 34:2=17(0) 17:2=8 ост.(1) 8:2=4 (0) 4:2=2 (0) 2:2=1 (0) 2:1=0,5 (1). Записываем 0 и 1 наоборот ( с конца )
10001001 - двоичная
137:8=17 ост(1) 17:8=2 (1) 8:2=2 (2). так же записываем наоборот.
211 - восьмеричная
137:16= 129(8) 137-129=9 (9).
89 - шестнадцатеричная
6)1110001=1*2^6+1*2^5+1*2^4+0*2^3+0*2^2*0*2^1+1*2^0=64+32+16+0+0+0+1=133 в десятичной системе