Nguyễn Quốc Thái Sơn

var
        a,b,c:longint;
        s:real;
begin
        readln(a,b,c);
        s:=(((a+b)/c)+(b/a))/(1+sqrt(a*a+b*b-1));
        write(s:0:3);
end.

var
        x,y,z:real;
begin
        readln(x,y,z);
        if(x'la so keo lon nhat')then
                (x>y)and(x>z)
        if(y, 'la so keo lon nhat')then
                (y>x)and(y>z)
        if(z, 'la so keo lon nhat')then
                (z>y)and(z>x);
        write(s, 'la so keo lon nhat');
end.

var
        m,n,p:real;
        s:real;
begin
        readln(m,n,p);
        if (m+n>p)and(m=n)and(n=p)and(p=m)then
                s:=(m+n+p)*(m+n+p)
        else
                s:=m+n/P;
                m=n+1;
        write(s);
end.

var
           a,b,c:longint;
           s:real;
begin
        readln(a,b,c);
        if (a>b)and(b>c)then
                s:=(a*a+b*b)/(c*c)
        else
                s:=(a*a+b*b+c*c)/(c+b);
        write(s);
end.

var
        a,b,c,d:int64;
        rmax:longint;
begin
        readln(a,b,c,d);
        rmax:=a;
        if rmax<b then
                rmax:=b;
        if rmax<c then
                rmax:=c;
        if rmax<d then
                rmax:=d;
        write(rmax);
end.

var
        a,b,c:longint;
        p,s:real;
begin
        readln(a,b,c);
        if  (a+b>c)and(b+c>a)and(c+a>b)then
        begin
                p:=(a+b+c)/2;
                s:=sqrt(p*(p-a)*(p-b)*(p-c));
        end
        else
                write(a,b,c, '-1');
end.

var
       a,b,c,x1,y1,x2,y2,x3,y3:longint;
        dab,dac,dbc,p,s:real;
begin
        readln(a,b,c);
        dab:=sqrt((x2-x1)*(X2-x1)+(y2-y1)*(y2-y1));
        dac:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
        dbc:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
        if (a+b>c)and(a+c>b)and(b+C>a) then
        begin
                p:=(a+b+c)/2;
                s:=sqrt(p*(p-a)*(p-b)*(p-c));
        end
        else
                write(a,b,c, '-1');
end.

var
       a,b,c,d,x:longint;
        s:longint;
begin
        readln(x);
        a:=x div 50;
        x:= x mod 50;
        b:=x div 20;
        x:=x div 20;
        c:=x div 10;
        x:=x div 10;
        d:=x div 5;
        s:=a+b+c+d;
        write(s);
end.

var
        a,b,x1,y1,x2,y2,dab:real;
begin
        readln(x1,y1,x2,y2);
        dab:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
        write(dab:0:3);
end.

var
        a,b,c:longint;
        s,p:real;
begin
        readln(a,b,c);
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        write(2*p:0:2,#32,s:0:2);
end.

a

var
        a,b,c,x1,y1,x2,y2,x3,y3:longint;
        dab,dac,dbc:real;
begin
        readln(x1,y1,x2,y2,x3,y3);
        dab:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
        dac:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
        dbc:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
        write(dab:0:2,#32,dac:0:2,#32,dbc:0:2);
end.

var
        a,b:longint;
        x,y:longint;
begin
        readln(a,b);
        x:=b*2+(a-2)*2;
        y:=a*b-x;
        write(x,#32,y);
end.

var
        n,i:longint;
        s:int64;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+i;
        write(s);
end.

var
        n,i:longint;
        s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+i*i;
        write(s);
end.

var
        n,i:longint;
        s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+2*i-1;
        write(s);
end.

var
        n,i:longint;
        s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+i*i*i;
        write(s);
end.

var
        n,i:longint;
        s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+sqr(i)*sqr(i)*i;
        write(s);
end.

var
        n,i:longint;
        s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+i*(i+1);
        write(s);
end.
 

var
        n,i:longint;
        s:real;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+1/(i*(i+1));
        write(s:0:3);
end.

var
        n,i:longint;
        s:real;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+i*(i+1)*(i+2);
        write(s);
end.

var
        n,i:longint;
begin
        readln(n);
        for i:=1 to n do
        if sqrt(i)= trunc(sqrt(i)) then
                write(i,#32);
end.

var
        a:array[-7..100000]of longint;
        res,n,i:longint;
begin
        readln(n);
        for i:=1 to n-2 do
        if a[i]+a[i+1]+a[i+2]>res then
                res:=a[i]+a[i+1]+a[i+2];
        write(res);
end.