Bùi Tiến Mạnh

var a,b,c,d:longint;
s,p:real;
begin
        readln(a,b,c,d);
        s:=(sqr(a)+sqr(b))/(c+d);
                writeln(s:0:2);
        p:=(sqr(a)*a+b)/(c/d+1/(a-b));
                writeln(p:0:2);
end.

var a,b,c:longint;
p,d,x1,x2:real;
begin
        readln(a,b,c);
        P:=sqr(b)-4*a*c;
        if p>=0 then
                d:=sqrt(p);
                x1:=(-b+d)/(2*a);
                x2:=(-b-d)/(2*a);
        write(d,x1,x2);
end.

var s,n:real;
begin
        readln(n);
        s:=(sqr(n)+2*n)/(sqr(n)+2*n+1);
        writeln(s:0:3);
end.

uses math;
var n,a,b:longint;
begin
        readln(n);
        a:=n mod 10;
        b:=n div 10;
        writeln(max(a,b));
end.

var n,a,b,c,res:longint;
begin
        readln(n);
                a:=n mod 10;
                b:=(n div 10) mod 10;
                c:=n div 100;
                res:=a*b*c;
        writeln(res);
end.

var a,b,c,res:byte;
n:longint;
begin
        readln(n);
        res:=high(byte);
                a:=n mod 10;
                b:=(n div 10) mod 10;
                c:=n div 100;
        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);
        if res=0 then
                writeln('none');
end.

var n,res,i:longint;
begin
        readln(n);
        for i:=1 to n do
                if (i mod 5=0) and (i mod 2<>0)
                then res:=res+i;
        if res<=n then
        writeln(res);
end.

var dai,x0,x1,y0,y1,r:real;
begin
        readln(x0,x1,y0,y1,r);
        dai:=sqrt(sqr(x0-x1)+sqr(y0-y1));
        if dai<=r then
                writeln(true)
        else writeln(false);
end.

uses math;
var a,b,res:longint;
begin
        readln(a,b);
        writeln(max(a,b),min(a,b));
end.

var n,a,b,c,res,s1,s2,s3,s4,s5,s6:longint;
begin
        readln(n);
                a:=n mod 10;
                b:=(n div 10) mod 10;
                c:=n div 100;
        s1:=a*100+c*10+b;
        s2:=b*100+a*10+c;
        s3:=b*100+c*10+a;
        s4:=c*100+a*10+b;
        s5:=c*100+b*10+a;
        s6:=n;
        res:=s1;
        if (res<s2) then
                res:=s2;
        if (res<s3) then
                res:=s3;
        if (res<s4) then
                res:=s4;
        if (res<s5) then
                res:=s5;
        if (res<s6) then
                res:=s6;
        writeln(res);
end.

var n,x,y,a,b:longint;
begin
        readln(n,a,b);
        for x:=0 to n div a do
                for y:=0 to n div b do
                        if (x*a+y*b) = n then
                                writeln(x,y);
end.

var n,a,b,c,dem:longint;
begin
        readln(n);
        dem:=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 n=a*500+b*200+c*100 then
                                        inc(dem);
        if dem>0 then
                writeln(dem)
                else writeln('none');
end.

var a,b,i:longint;
function ngto(u:longint):boolean;
var i:longint;
begin
        if u<=1 then exit(false);
                for i:=2 to trunc(sqrt(u)) do
                        if u mod i = 0 then exit(false);
        exit(true);
end;
begin
        readln(a,b);
        for i:=a to b do
        if ngto(i) then
                writeln(i);
end.

var n,i:longint;
f:array[-3..100000]of boolean;
procedure sangngto(u:longint);
var i,j,k:longint;
begin
        for i:=1 to u do
                f[i]:=true;
        f[1]:=false;
        i:=2;
        while i*i <=u do
                if f[i]=true then
                        begin
                                k:=2;
                                while i*k <= u do
                                        begin
                                                f[k*i]:=false;
                                                k:=k+1;
                                        end;
                                        i:=i+1;
                        end
                else i:=i+1;
end;
begin
        readln(n);
        sangngto(n);
        for i:=1 to n do
                if f[i]=true then
                        writeln(i,#32);
end.

var a,b,i:longint;
function uocchung(c,d:longint):longint;
begin
        while c<>d do
                if c>d then
                        c:=c-d
                        else d:=d-c;
                exit(c);
end;
begin
        readln(a,b);
        writeln(uocchung(a,b));
end.

var a,b:longint;
function ucln(a,b:longint):longint;
var r:int64;
begin
        while b>0 do
                begin
                        r:=a mod b;
                        a:=b;
                        b:=r;
                end;
        exit(a);
end;
begin
        readln(a,b);
        writeln(ucln(a,b));
end.

var n,p,i,s:longint;
function amub(u,v:longint):int64;
var tam:int64;
begin
        if (v=0) then exit(1);
        if (v=1) then exit(u);
        tam:=amub(u,v div 2);
exit(tam*tam*amub(u,v mod 2));
end;
begin
        readln(n,p);
        s:=1;
        for i:=1 to n do
                amub(p,i);
                s:=s+(i+1);
        write(s);
end.

var n:longint;
function kt(u:longint):boolean;
var tam:boolean;
begin
        if (u mod 3 = 0) and (u mod 5 <> 0) then
                tam:=true
        else
                tam:=false;
        exit(tam);
end;
begin
        assign(input,'bai3.inp'); reset(input);
        assign(output,'bai3.out'); rewrite(output);
        readln(n);
        writeln(kt(n));
        reset(input);
        reset(output);
end.

var a,b,c,res:longint;
function min(u,v,n:longint):longint;
var tam:longint;
begin
        if tam > u then
                tam:=u;
        if tam > v then
                tam:=v;
        if tam > n then
                tam:=n;
exit(tam);
end;
begin
        assign(input,'bai4.inp'); reset(input);
        assign(output,'bai4.out'); rewrite(input);
        readln(a,b,c);
        writeln(min(a,b,c));
        close(input);
        close(output);
end.

var a,b,c:longint;
function tgiac(u,v,n:longint):boolean;
var tam:boolean;
begin
        if (u+v>n) and (u+n>v) and (v+n>u) then
                tam:=true
        else
                tam:=false;
exit(tam);
end;
function dientich(u,v,n:longint):real;
var p,s:real;
begin
        p:=(u+v+n)/2;
        s:=sqrt(p*(p-u)*(p-v)*(p-n));
exit(s);
end;
begin
        assign(input,'bai5.inp'); reset(input);
        assign(output,'bai5.out'); rewrite(output);
        readln(a,b,c);
        if tgiac(a,b,c) then
                write(dientich(a,b,c):0:2)
        else write('none');
end.