Đỗ Thái Sơn

var i,n:longint;
begin
readln(n);
for i:=1 to n do
if (n mod i=0) then
write(i,#32);
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
if (i mod 2=1) then
s:=s+1/(2*i-1);
write(s:0:3);
end.

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

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

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

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

var x,y,a,b,n,p:longint;
begin
readln(n);
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 a,b,c,n:longint;
begin
       readln(n);
       for a:=0 to n div 500 do
       for b:=0 to n div 200 do
       for c:=0 to n div 100 do
       n:=500*a +200 *b+100*c;
       write(a,#32,b,#32,c);
end.

uses math;
var a,b,c,n,rmin,rmax:longint;
begin
readln(n);
rmin:=n;
rmax:=0;
for a:=0 to n div 500 do
for b:=0 to n div 200 do
for c:=0 to n div 100 do
if (500*a+200*b+100*c=n) then
begin
rmin:=min(rmin,a+b+c);
rmax:=max(rmax,a+b+c);
end;
write(rmin,#32,rmax);
end.

var i,n:longint;
s:real;
begin
readln(n);
i:=1;
s:=0;
while 1/n<=0.001 do
begin
s:=s+1/i;
i:=i+1;
end;
write(s:0:2);

end.

uses math;
var a,b,i,p,res:longint;
begin
readln(a,b);
res:=0;
i:=1;
p:=min(a,b);
while (i<=p) do
if (a mod i=0) and (b mod i=0) then
begin
res:=max(res,i);
i:=i+1;//inc(i);
end
else
i:=i+1;
write(res);
end.

var m:longint;
procedure phantics(a:longint);
var i:longint;
begin
i:=2;
while i*i<=a do
if a mod i=0 then
begin
write(i,#32);
a:=a div i;
end
else
i:=i+1;
if a>1 then
write (a);
end;
begin
readln(m);
phantics(m)
end.

var m,n,res:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
if (u<=1) then exit(false);
for j :=1 to trunc(sqrt(u)) do
if u mod j=0 then
exit(false);
exit(true);
end;
begin
readln(n);
m:=n+1;
while not(nguyento(m))do
m:=m+1;//inc(m);
write(m);
end.

var m,n:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
if (u<=1) then exit(false);
for j:=1 to trunc(sqrt(u)) do
if u mod j=0 then
exit(false);
exit(true);
end;
begin
readln(n);
m:=n div 10;
while (not(nguyento(m))and(m>0)) do
m:=m div 10;
if(m>0) then
write(m)
else
write(-1);
end.

uses math;
var i,n,res:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
if (u<=1) then exit (false);
for j:=1 to trunc(sqrt(u)) do
if u mod j=0 then
exit(false);
exit(true);
end;
begin
readln(n);
if nguyento(i) then
res:=max(res,i);
if (i<>n div i) then
res:=max(res,n div i);
write(res);
end.

var
i, n: Longint;
a : array[-7..100000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n do
write(a[i], #32);
end.

var
i,n: Longint;
a : array[-7..100000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n Do
if a[i] mod 2 = 0 then write(a[i],
#32);
end.

var
n ,i : Longint;
a : array[-7..1000000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if sqrt(a[i]) = trunc(sqrt(a[i])) then
write(i,#32);
end.

var
i,n, res : Longint;
a : array[-7..100000] of Longint;
begin
read(n);
res := 0;
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0 ) and (a[i] mod 3 <>
0) then inc(res);
write(res);
end.

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

var
i,n,res,dem: Longint;
a : array[-7..100000] of Longint;
begin
dem := 0;
readln(n);
for i := 1 to n do
read(a[i]);
res := a[1];
for i := 1 to n do
if res < i then res := a[i];
for i := 1 to n do
if a[i] = res then inc(dem);
write(dem);
end.

var
i,n, t : Longint;
tb : real;
a : array[-7..100000] of Longint;
begin
read(n);
t := 0;
for i := 1 to n do
read(a[i]);
for i := 1 to n do
t := t + a[i];
tb := t / n;
write(t,#32 ,tb:0:2);
end.

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

var
i, n ,rmax,rmin: Longint;
a : array[-7..100000] of Longint;
begin
readln(n);
for i := 1 to n do
read(a[i]);
rmax := a[1];
rmin := a[1];
for i := 1 to n do
if rmax < a[i] then rmax := a[i];
for i := 1 to n do
if rmin > a[i] then rmin := a[i];
write(abs(rmax-rmin));
end.