Hà Quang Tất Đạt

uses crt;
const
        fi = 'b5d5.inp';
        fo = 'b5d5.out';
var n,i,t : longint;
    a: array[-7..10000] of longint;
    b: array[-7..10000] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i :=1 to n do read(a[i]);
        for i:=1 to n do
        begin
                b[i]:=a[i];
        end;
        for i:=1 to n do
        begin
                b[n+i]:=a[i];
        end;
        for i:=1 to n*2 do
        write(b[i],#32);
close(input);close(output);
end.

uses crt;
const
        fi = 'b4d5.inp';
        fo = 'b4d5.out';
var n,i : longint;
    f: array[-7..10000] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        f[1]:=1;
        f[2]:=1;
        for i:=3 to n do
        begin
                f[i]:=f[i-1]+f[i-2];
        end;
        writeln(f[n]);
close(input);close(output);
end.

const
        fi = 'b14cb.inp';
        fo = 'b14cb.out';
var n,p: longint;
    s: real;
function lt (a,m: longint): longint;
var i: longint;
    kq: longint;
        begin
                kq:=1;
                for i:= 1 to m do
                kq:=kq*a;
                lt:=kq;
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(p,n);
        s:=lt(p,n+1)-1/p-1;
        writeln(s:5:3);
close(input);close(output);
end.

const
        fi = 'b15cb.inp';
        fo = 'b15cb.out';
var n,p: longint;
    s: real;
function lt (a,m: longint): longint;
var i: longint;
    kq: longint;
        begin
                kq:=1;
                for i:= 1 to m do
                kq:=kq*a;
                lt:=kq;
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(p,n);
        s:=((n+1)*lt(p,n+1)/p-1)-(lt(p,n+1)-1)/(p-1)*(p-1);
        writeln(s:5:3);
close(input);close(output);
end.

const
        fi = 'b33cb.inp';
        fo = 'b33cb.out';
var x1,y1,x2,y2,x3,y3,xm,ym : longint;
    s,s1,s2,s3 :  real;
function kc(mx,my,nx,ny : longint) : real;
        begin
              exit (sqrt((mx-nx)*(mx-nx)+(my-ny)*(my-ny)));
        end;
function dt (a1,a2,b1,b2,c1,c2 : longint) : real;
var p:real;
    dab,dac,dbc :real;
        begin
                dab := kc(a1,a2,b1,b2);
                dbc := kc(a1,a2,c1,c2);
                dbc := kc(b1,b2,c1,c2);
                p:= (dab + dac + dbc) / 2;
        exit(sqrt(p*(p-dab)*(p-dac)*(p-dbc)));
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(x1,y1);
        readln(x2,y2);
        readln(x3,y3);
        readln(xm,ym);
        s :=dt(x1,y1,x2,y2,x3,y3);
        s1:=dt(x1,y2,x2,y2,xm,ym);
        s2:=dt(x2,y2,xm,ym,x3,y3);
        s3:=dt(x1,y1,x3,y3,xm,ym);
        //write(s,s1,s2,s3);
        if (s-s1-s2+-s3) < 0.001 then
                writeln('trong')
        else
                writeln('ngoai');
close(input);close(output);
end.

const
        fi = 'b34cb.inp';
        fo = 'b34cb.out';
var n,i : longint;
    s  : real;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        s:=0;
        for i:=1 to n do
                begin
                        s:=s+1/i;
                end;
        writeln(s:0:3);
close(input);close(output);
end.

const
        fi = 'b35cb.inp';
        fo = 'b35cb.out';
var n,i : longint;
    s  : real;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        s:=0;
        for i:=1 to n do
                begin
                        s:=s+1/(2*i-1);
                end;
        writeln(s:0:2);
close(input);close(output);
end.

const
        fi = 'b36cb.inp';
        fo = 'b36cb.out';
var n,i : longint;
    s  : real;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        s:=1;
        for i:=1 to n do
                begin
                        s:=s*i;
                end;
        writeln(s:0:2);
close(input);close(output);
end.

const
        fi = 'b37cb.inp';
        fo = 'b37cb.out';
var n,i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i:=1 to n do
                begin
                    if (i mod 2 = 0) and (i mod 3 <> 0) then
                    writeln(i,#32);
                end;

close(input);close(output);
end.

const
        fi = 'b38cb.inp';
        fo = 'b38cb.out';
var n,i,d : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        d:=0;
        for i:=1 to n do
                begin
                    if sqrt(i) = trunc(sqrt(i))  then
                    inc(d);
                end;
        write(d);

close(input);close(output);
end.

const
        fi = 'b39cb.inp';
        fo = 'b39cb.out';
var n,i,d : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        d:=0;
        for i:=1 to n do
                begin
                    if (n mod i = 0)  then
                    write(i,#32);
                end;
close(input);close(output);
end.

const
        fi = 'b41cb.inp';
        fo = 'b41cb.out';
var n,x,y,z : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for x:=0 to n div 500 do
        for y:=0 to n div 200 do
        for z:=0 to n div 100 do
                if (500*x+200*y+100*z = n) then
                write(x,#32,y,#32,z,#32);
close(input);close(output);
end.

const
        fi = 'b40cb.inp';
        fo = 'b40cb.out';
var n,x,y,a,b,d : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        readln(a,b);
        for x:=0 to n div a do
        for y:=0 to n div b do
                if (a*x+b*y = n) then
                write(x,#32,y,#32);
close(input);close(output);
end.

uses math;
const
        fi = 'b42cb.inp';
        fo = 'b42cb.out';
var n,x,y,z,rmin,rmax : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        rmin:=n;
        rmax:=0;
        for x:=0 to n div 500 do
        for y:=0 to n div 200 do
        for z:=0 to n div 100 do
                if (500*x+200*y+100*z = n) then
                begin
                        rmin:= min(rmin,x+y+z);
                        rmax:= max(rmax,x+y+z);
                end;
                write(rmin,#32,rmax);
close(input);close(output);
end.

const
        fi = 'b43cb.inp';
        fo = 'b43cb.out';
var n,d,i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        d:=0;
        for i:=1 to trunc(sqrt(n)) do
                if n mod i = 0 then
                begin
                        inc(d);
                        if (i <> n div i) then
                        inc(d);
                end;
        writeln(d);
close(input);close(output);
end.

const
        fi = 'b44cb.inp';
        fo = 'b44cb.out';
var n,i,d : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i:=1 to n do
                if (n mod i = 0)  then
                begin

                        if (i mod 2=0) then

                        writeln(i,#32);

                end;
close(input);close(output);
end.

const
        fi = 'b45cb.inp';
        fo = 'b45cb.out';
var n,d,i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        d:=0;
        for i:=1 to trunc(sqrt(n)) do
                if n mod i = 0 then
                begin
                        d:=d+i;
                        if (i <> n div i) then
                        d:=d+(n div i);
                end;
        writeln(d);
close(input);close(output);
end.

const
        fi = 'b46cb.inp';
        fo = 'b46cb.out';
var n,d,i : longint;
function nt(u : longint) :boolean;
var j: longint;
        begin
                if (u <= 1) then exit (false);
                for j:=2 to trunc(sqrt(u)) do
                if u mod j = 0 then exit(false);
        exit(true);
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        write(nt(n));
close(input);close(output);
end.

const
        fi = 'b47cb.inp';
        fo = 'b47cb.out';
var a,b,i : longint;
function nt(u : longint) :boolean;
var j: longint;
        begin
                if (u <= 1) then exit (false);
                for j:=2 to trunc(sqrt(u)) do
                if u mod j = 0 then exit(false);
        exit(true);
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(a,b);
        for i:=a to b do
        if nt(i) then
        write(i,#32);
close(input);close(output);
end.

const
        fi = 'b23cb.inp';
        fo = 'b23cn.out';
Var
a,b,c:Integer;
Delta,x,x1,x2:Real;
Begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(a,b,c);
        Delta:=sqr(b)-4*a*c;
                If Delta < 0 Then
                        Writeln('NONE')
                Else
                If Delta=0 Then
                Begin
                        X:=-b/2*a;
                        Writeln(X:6:2);
                End
                Else
                Begin
                        X1:=-b-Sqrt(Delta)/2*a;
                        X2:=-b+Sqrt(Delta)/2*a;
                        Writeln(X1:6:2);
                        Writeln(X2:6:2);
                End;

End.

const
        fo = 'b48cb.out';
Var
        i:longint;
        s: real;
Begin
        assign(output,fo);rewrite(output);
        s:=0;
        i:=1;
        while 1/i >= 0.001 do
        begin
                s:=s+1+(1/i);
                inc(i);
        end;
        write(s:0:3);
close(output);
End.

const
        fi = 'b49cb.inp';
        fo = 'b49cb.out';
var n,a,b,t: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(a,b);
        while b > 0 do
        begin
                t:=a mod b;
                a:=b;
                b:=t;
        end;
        writeln(a);
close(input);close(output);
end.

const
        fi = 'b1d6.inp';
        fo = 'b1d6.out';
var n,m,i,j,s: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n);
        for i:=1 to m do
          for j:=1 to n do
                read(a[i,j]);
        s:=0;
        for i:=1 to m do
          for j:=1 to n do
                if a[i,j] mod 2 = 0 then
                        s:=s+a[i,j];
                        write(s);
close(input);close(output);
end.

const
        fi = 'b2d6.inp';
        fo = 'b2d6.out';
var n,m,i,j,s,k: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n,k);
        for i:=1 to m do
          for j:=1 to n do
                read(a[i,j]);
        s:=0;
        for i:=1 to m do
          for j:=1 to n do
                if a[i,j]  = k then
                        inc(s);
                        write(s);
close(input);close(output);
end.

const
        fi = 'b3d6.inp';
        fo = 'b3d6.out';
var n,m,i,j,k: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n,k);
        for i:=1 to m do
          for j:=1 to n do
                read(a[i,j]);
        for i:=1 to m do
          for j:=1 to n do
                if a[i,j] mod k = 0 then
                        writeln(i,#32,j,#32);
close(input);close(output);
end.