Đỗ Hoàng Phúc

var
   n: Longint;
begin
   readln(n);
   writeln(n / (n+1):0:2);
end.

var
   n : Longint;
begin
   readln(n);
   writeln(n * (n + 3) / (4.0 * (n + 1) * (n + 2)):0:2);
end.

var
   n: Longint;
begin
   readln(n);
   writeln(n * (n + 2) / ((n + 1) * (n + 1)):0:2);
end.

var
   j,i,n,res : Longint;
   a,b :array[-7..100000] of Longint;
begin
   readln(n);
   for i := 1 to n do
      read(a[i]);
   res:= -trunc(1e9);
   for i := 1 to n do
      if a[i] + a[i+1] + a[i+2] > res then res :=a[i] + a[i+1] + a[i+2];
   writeln(res);
end.

var
   i,n,p : Longint;
   a : array[-7..100000] of Longint;
begin
    readln(n);
    for i := 1 to n do
       read(a[i]);
    p := 0;
    for i := 1 to n do
       if a[i+1] <= a[i] then inc(p)
       else
          begin
             p := 0;
             break;
          end;
    if p = 0 then writeln('no')
    else
       write('yes'); 
 end.   

var
   i,n : Longint;
   f : array[-7..100000] of Longint;
begin
   readln(n);
   f[1] := 1;
   f[2] := 1;
   for i := 3 to n do
      f[i] := f[i-1] + f[i-2];
   write(f[n]); 
end.

var
   a: Longint;
begin
   readln(a);
   if a mod 3 = 0 then writeln(true)
   else
      writeln(false);
end.

var
   a,b,rmax : Longint;
begin
   read(a,b);
   rmax := a;
      if rmax < b then rmax := b ;
   writeln(rmax);
end.

var
   a,b,c,rmin : Longint;
begin
   read(a,b,c);
   rmin := a ;
   if rmin > b then rmin := b;
   if rmin > c then rmin := c;
   write(rmin);
end.

var a,b,c: longint;
smax: longint;
begin
readln(a,b,c);
smax := a+b;
if (smax<b+c) then
smax := b+c;
if (smax<c+a) then
smax := c+a;
write(smax);
end.

var
   n,m,a,b,rmax : Longint;
begin
   read(a,b);
      m := a * 10 + b;
      n := b * 10 + a;
      rmax := n ;
   if rmax < m then rmax := m;
   writeln(rmax);
end.

var
   a ,b: Longint;
begin
   read(a,b);
   if a = 0 then
      begin
         if b = 0 then writeln('MULTIPLE');
         if b <> 0 then writeln('NONE');
      end
   else
      writeln(-(a/b)) ;

end.

var
   a,b,c,p : real;
begin
   read(a,b,c);
   if (a >= b + c ) and (b >= c + a) and (c >= b + c) then
      writeln('not a triangle')
   else
      begin
         p := (a + b + c) / 2;
         writeln(sqrt(p * (p - a)*(p - b)*(p - c)):0:2);
      end;
end.

var
   my,mx,ix,iy,d,r: real;
begin
   read(my,mx);
   read(ix,iy);
   readln(r);
      d := sqrt(sqr(ix - mx) + sqr(iy - my));
   if d = r then writeln('on');
   if d < r then writeln('inside')
   else
      writeln('outside');
end.

var
   ax,ay,bx,by,cx,cy: Longint;
   dab,dbc,dac,p: real;
function dg (x2,y2,x1,y1 : Longint): real;
var
   res: real;
begin
   res:= sqrt(sqr(x2 - x1)+sqr(y2 - y1));
   exit(res);
end;
begin
   read(ax,ay);
   read(bx,by);
   read(cx,cy);
      dab := dg(bx,by,ax,ay);
      dbc := dg(cx,cy,bx,by);
      dac := dg(ax,ay,cx,cy);
   if (dab >= dac + dbc ) and (dbc >= dac + dab) and (dac >= dbc + dab) then
      writeln('not a triangle')
   else
      begin
         p := (dab + dbc + dac) / 2;
         writeln(sqrt(p * (p - dab)*(p - dbc)*(p - dac)):0:2);
      end;
end.

var
   a,b,c,res : Longint;
begin
   read(a,b,c);
   res := 0;
   if (a mod 2 = 0) and (res < a) then
      res := a ;
   if (b mod 2 = 0) and (res < b) then
      res := b ;
   if (c mod 2 = 0) and (res < c) then
      res := c ;
   writeln(res);
end.

var a,b,c,n: longint;
m,p,q,rmin: longint;
begin
readln(n);
      a := n div 100;
      b := (n div 10) mod 10;
      c := n mod 10;
      m := 10*b+c;
      p := 10*a+b;
      q := 10*a+c;
      rmin := m;
if (rmin>n) then
    rmin := n;
if (rmin>p) then
    rmin := p;
if (rmin>q) then
    rmin := q;
write(rmin);
end.

var
   a,b,c,n: longint;
   m,p,q,r,s,t,rmax: longint;
begin
   readln(n);
      a := n div 100;
      b := (n div 10) mod 10;
      c := n mod 10;
      m := 100*b+10*a+c;
      p := 100*b+10*c+a;
      q := 100*a+10*c+b;
      r := 100*a+10*b+c;
      s := 100*c+10*a+b;
      t := 100*c+10*b+a;
      rmax := m;
   if (rmax<n) then
      rmax := n;
   if (rmax<p) then
      rmax := p;
   if (rmax<q) then
      rmax := q;
   if (rmax<r) then
      rmax := r;
   if (rmax<s) then
      rmax := s;
   if (rmax<t) then;
      rmax := t;
   write(rmax);
end.

var
   a,b,c,n: longint;
   m,p,q,rmin: longint;
begin
   readln(n);
      a := n div 100;
      b := (n div 10) mod 10;
      c := n mod 10;
      m := 10*b+c;
      p := 10*a+b;
      q := 10*a+c;
      rmin := m;
   if (rmin>n) then
      rmin := n;
   if (rmin>p) then
      rmin := p;
   if (rmin>q) then
      rmin := q;
   write(rmin);
end.

var
   xm,ym,x1,y1,x3,y3: longint;
begin
   readln(x1,y1,x3,y3,xm,ym);
   if (x1<=xm) and (xm<=x3) and (y3<=ym) and (ym<=y1) then
      write('M nam trong hcn')
   else
      write('M nam ngoai hcn');
end.

{tinh tong lon nhat gom 3 phan tu lien tiep}
var
   i,n,p,res: longint;
   a : array[-7..1000000] of longint;
begin
     readln(n);
     for i := 1 to n do
        read(a[i]);
     res := low(longint);
     for i := 1 to n do
        begin
           p := a[i] + a[i+1] + a[i+2];
           if p > res then res := p;
        end;
     write(res)
  end. 

var
   i,n,p : longint;
   a : array[-7..1000000] of longint;
begin
    readln(n);
    for i := 1 to n do
       read(a[i]);
    p := 1;
    for i := 1 to n-1 do
       if a[i] > a[i+1] then
          begin
             p := 0;
             break;
          end;
    if p = 1 then write(true)
    else
       write(false);
 end.

var
   n ,i: longint;
   f : array[1..1000000] of int64;
begin
   readln(n);
   f[1] := 1;
   f[2] := 1;
   for i := 3 to n do
      f[i] := f[i-1] + f[i-2];
   writeln(f[n])
end.

var
   i,n,t: Longint;
   a : array[1..1000000] of longint;
begin
   readln(n);
   for i := 1 to n do
      read(a[i]);
   for i := 1 to (n div 2) do
      begin
         t := a[i];
         a[i] := a[n-i+1];
         a[n-i+1] := t;
      end;
   for i := 1 to n do
      write(a[i],#32) 
end.