Nguyễn Huy Minh

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

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

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

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

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

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

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

var a,b,c,d,res: longint;
begin
        readln(a,b,c,d);
        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;
        write(res);
end.

var a,b,c,n: longint;
        m,p,q,r,s,t,rmax: real;
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:0:1);
end.

var a,b,c: longint;
        smax: real;
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:0:1);
end.

var a,b,c,n: longint;
        m,p,q,rmin: real;
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:0:1);
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.

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

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

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

var i,n: longint;
begin
        readln(n);
        for i := 0 to n do
                if (i mod 2 = 0) and (i mod 3 <> 0) then
                        write(i,#32);
end.

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

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

var n,a,b,x,p,y: longint;
begin
        readln(n,a,b);
        p := 0;
        for x := 0 to (n div a) do
        for y := 0 to (n div b) do
                if (a*x+b*y=n) then
                begin
                        write(a,#32,b);
                        p := 1;
                end;
                if (p=0) then
                write(-1);
end.

var i,n,d: longint;
begin
        readln(n);
        d := 0;
        for i := 1 to n do
                if (n mod i = 0) then
                d := d+1;
                write(d);
end.

var i,n: longint;
begin
        readln(n);
        for i := 1 to n do
                if (n mod i = 0) and (i mod 2 = 0) then
                        write(i,#32);
end.

var i,n,dem: longint;
begin
        readln(n);
        dem := 0;
        for i := 1 to (trunc(sqrt(n))) do
                if (n mod i = 0) then
                        begin
                        dem := dem+1;
                        if i<>n div i then
                                dem := dem+1;
                        end;
                if (dem=2) then write('true')
                else write('false');
end.

var n,i: longint;
        s: real;
begin
        i := 1;
        s := 0;
        while (1/i>=1/1000) do
        begin
                s := s+1/i;
                i := i+1;
        end;
        write(s:0:2);
end.

uses math;
var i,a,b,res: longint;
begin
        readln(a,b);
        res := 0;
        for i := 1 to min(a,b) do
                if (a mod i = 0) and (b mod i = 0) then
                res := max(res,i);
        write(res);
end.

var a,b,res: longint;
begin
        readln(a,b);
        while a<>b do
                if (a>b) then
                a := a-b
                else
                b := b-a;
        write(a);
end.