Đỗ Thái Sơn

var n,x,y,z:longint;
begin
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,z);
end.

use math;
var n,x,y,z:longint;
rmin,rmax,max,min:longint;
begin
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
rmax:=0;
rmin:=n;
begin
rmax:=max*(rmax,x+y+z);
rmin:=min*(rmin,x+y+z);
end;
write(rmax,rmin);
end.

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

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

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

var n:longint;
function nguyento(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
read(n);
write(nguyento(n))
end.

uses math;
var a,b,i,n:longint;
function nguyento(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
readln(a,b);
for i:=1 to min(a,b) do
if (a mod i=0) and (b mod i=0) and (nguyento(i)=true) 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.

var x1,y1,x2,y2,x3,y3:longint;
p1,p2,s2,s1,x4,y4,d1,d2,d3,d4,d5:real;
begin
readln(x1,y1,x2,y2,x3,y3);
d1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
d2:=sqrt(sqr(x3-x1)+sqr(y3-y1));
d3:=sqrt(sqr(x3-x2)+sqr(y3-y2));
x4:=(x3+x1)/2;
y4:=(y3+y1)/2;
d4:=1/2*d2;
d5:=sqrt(sqr(d1)+sqr(d4));
p1:=(d1+d4+d5)/2;
s1:=sqrt(p1*(p1-d1)*(p1-d2)*(p1-d3));
p2:=(d3+d4+d5)/2;
s2:=sqrt(p2*(p2-d3)*(p2-d4)*(p2-d5));
write(s1,#32,s2)
end

var a1,b1,c1,a2,b2,c2,t1,t2:longint;
t3:longint;
begin
readln(a1,b1,c1,a2,b2,c2);
t1:=a1*3600+b1*60+c1;
t2:=a2*3600+b2*60+c2;
t3:=t2-t1;
write(t3);
end.

var
a1,b1,c1,a2,b2,c2,a3,b3,c3,t1,t2,x:longint;
begin
ReadLn(a1,b1,c1,a2,b2,c2);
t1:=a1*3600+b1*60+c1;
t2:=a2*3000+b2*60+c2;
x:=t1-t2;
a3:=x div 3600;
x:=x mod 3600;
b3:=x div 60;
c3:=x mod 60;
write(a3,#32,b3,#32,c3);
end.

var
a,b,c:longint;
x1,x2,d:real;
begin
ReadLn(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then write('phuong trinh vo nghiem')
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write(x1,#32,x2);
end;
end.

var m,n,p:longint;
res:longint;
begin
readln(m,n,p);
res:=m+n;
if res<(n+p) then
res:=n+p;
if res<(m+p) then
res:=m+p;
write(res);
end.

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

var x1,y1,x2,y2,x3,y3:longint;
ab,bc,ac,res:real;
begin
readln(x1,y1,x2,y2,x3,y3);
ab:=sqrt(sqr(x1-x2)+sqr(y1-y2));
bc:=sqrt(sqr(x2-x3)+sqr(y2-y3));
ac:=sqrt(sqr(x1-x3)+sqr(x1-x3));
res:=ab;
if res<bc then
res:=bc;
if res<ac then
res:=ac;
write(res:0:2);
end.

var n:longint;
begin
readln(n);
if (sqrt(n)=trunc(sqrt(n))) then
write(n,'true')
else
write(n,'false');
end.

var m,n,p,q,r,rmax,rmin:longint;
begin
readln(m,n,p,q,r);
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;
rmin:=m;
if rmin>n then
rmin:=n;
if rmin>p then
rmin:=p;
if rmin>q then
rmin:=q;
if rmin>r then
rmin:=r;
write(rmax,#32,rmin);
end.

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

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

var a,n:longint;
function tinhab (a,b:longint):longint;
var tam:longint;
begin
if n=0 then exit(1);
if n=1 then exit(a);
tam:=tinhab(a,b div 2);
exit(tam*tam*tinhab(a,b mod 2));
end;
begin
readln(n,a);
write(tinhab(a,n));

end.

var i,n,m:longint;
begin
readln(m,n);
for i:= m to n do
write(i,#32);
end.

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

var a,b,s,i:longint;
begin
readln(a,b);
s:=0;
for i:=a to b do
if (i mod 2=0) then
s:=s+i;
write(s);
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 n,i,s,dem:longint;
begin
readln(n);
dem:=0;
for i:=1 to n do
if (n mod i=0) then
dem:=dem+1;
if dem=2 then
write('true')
else
write('false');
end.