Nguyễn Huy Minh

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
                begin
                d := sqrt(p);
                x1 := (-b+d)/(2*a);
                x2 := (-b-d)/(2*a);
                write(d:0:1,#32,x1:0:1,#32,x2:0:1);
                end
        else
                write('-1');
end.

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

var n,i: longint;
        s: real;
begin
        assign(input,'b4dttn1.inp');
        assign(output,'b4dttn1.out');
        reset(input);
        rewrite(output);
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s+(2*i+1)/sqr(i*(i+1));
        write(s:0:3);
        close(input);
        close(output);
end.

var n,a,b,res: longint;
begin
        readln(n);
        b := n mod 10;
        a := n div 10;
        res := a;
        if res<b then res := b
        else res := a;
        write(res);
end.

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

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

var x1,y1,x0,y0,r: longint;
        d: real;
begin
        assign(input,'b8n7t11.inp');
        assign(output,'b8n7t11.out');
        reset(input);
        rewrite(output);
        readln(x1,y1,x0,y0,r);
        d := sqrt(sqr(x0-x1)+sqr(y0-y1));
        if d<r then
                write(true)
        else write(false);
        close(input);
        close(output);
end.

var a,b,res,ab: longint;
begin
        readln(a,b);
        res := a;
        if res<b then
                begin
                res := b;
                ab := res*10+a;
                end
        else
                ab := res*10+b;
        write(ab);
end.

var x1,y1,x2,y2,x3,y3: longint;
function kcach(u1,v1,u2,v2: longint): real;
var dd: real;
begin
        dd := sqrt(sqr(u1-u2)+sqr(v1-v2));
        exit(dd);
end;
begin
        assign(input,'day1bai2.inp'); reset(input);
        assign(output, 'day1bai2.out'); rewrite(output);
        readln(x1);
        readln(x2);
        readln(y1);
        readln(y2);
        readln(x3);
        readln(y3);
        writeln(kcach(x1,y1,x2,y2):0:2);
        writeln(kcach(x2,y2,x3,y3):0:2);
        writeln(kcach(x3,y3,x1,y1):0:2);
        close(input);
        close(output);
end.

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

var a,b,c: longint;
function snn(x,y,z: longint): longint;
var res: longint;
begin
        res := x;
        if res>y then res := y;
        if res>z then res := z;
        exit(res);
end;
begin
        assign(input,'day1bai4.inp'); reset(input);
        assign(output,'day1bai4.out'); rewrite(output);
        readln(a,b,c);
        write(snn(a,b,c));
        close(input);
        close(output);
end.

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

var n: longint;
function tinhtong(u: longint): real;
var i: longint;
        tong: real;
begin
        tong := 0;
        for i := 1 to u do
                tong := tong + 1/(2*i-1);
        exit(tong);
end;
begin
        assign(input,'day1bai6.inp'); reset(input);
        assign(output,'day1bai6.out'); rewrite(output);
        readln(n);
        write(tinhtong(n):0:3);
        close(input);
        close(output);
end.