Lập trình a/ Tìm giá trị lớn nhất của 2 số nguyên b/ Tính y = ∑(trên 50 và dưới n=1)$\frac{n}{n+1}$ không hiểu comt nhé! c/ Tính diện tích tam giác, hình vuông, hình tròn,... d/Tìm nghiệm của phương trình bậc 2

a)

Program BTT;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If a>b then Write(a,' lon hon ',b)
        Else If a<b then Write(b,' lon hon ',a)
        Else Write('Hai so bang nhau');
        Readln
End.

c)

Program BTT;
Uses crt;
Var a,b,c,s,p: real;
Begin
        Clrscr;
        //Tam giac
                Write('Nhap do dai 3 canh: '); Readln(a,b,c);
                p:=(a+b+c)/2;
                s:=sqrt(p*(p-a)*(p-b)*(p-c));
                Write('S = ',s:0:2);
        //Hinh vuong
                Write('Nhap do dai canh: '); Readln(a);
                s:=sqr(a);
                Write('S = ',s:0:2);
        //Hinh tron
                Write('Nhap ban kinh: '); Readln(r);
                s:=sqr(r)*3.14;
                Write('S = ',s:0:2);
        Readln
End.