1 viết chương trình nhập chiều dài và chiều rộng hình chữ nhật từ bàn phím in ra màn hình chu vi và diện tích của nó 2 viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả cho biết số đó chia hết cho 2 và 3 3 viết chương trình nhập 3 số nguyên dương a,b,c từ bàn phím in ra kết quả 3 số đó có thể là cạnh của tam giác hay ko? 4viết chương trình giải phương trình bậc nhất dạng tổng quát: ax+b=0 5viết chương trình nhập số nguyên dương X có 2 chữ số ,in ra màn hình cho biết số hàng chục và đơn vị của số X 6 giống câu5 nhưnh có 1 số và phần sau in ra là số chẵn hay lẻ 7 nhập 4 số a,b,c,d hãy tìm giá trị lớn nhất của chúng và gán giá trị lớn nhất đó cho biến MAX 8

Bài 1:

Program BTT;
Uses crt;
Var a,b,p,s: extended;
Begin
        Clrscr;
        Write('Nhap chieu dai: '); Readln(a);
        Write('Nhap chieu rong: '); Readln(b);
        p:=(a+b)*2;
        s:=a*b;
        Writeln('Chu vi = ',p:0:2);
        Write('Dien tich = ',s:0:2);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var x: qword;
Begin
        Clrscr;
        Write('Nhap so nguyen duong X: '); Readln(x);
        If x mod 6 = 0 then Write(x,' chia het cho 2 va 3')
        Else Write(x,' khong chia het cho 2 va 3');
        Readln
End.

Bài 3:

Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then Write('Thoa man')
        Else Write('Khong thoa man');
        Readln
End.

Bài 4:

Program BTT;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a, b: '); Readln(a,b);
        If (a=0) and (b<>0) then Write('x vo nghiem');
        If (a=0) and (b=0) then Write('x vo so nghiem');
        If a<>0 then Write('x co nghiem ',-b/a:0:2);
        Readln
End.

Bài 5:

Program BTT;
Uses crt;
Var a: 10..99;
Begin
        Clrscr;
        Write('Nhap mot so co hai chu so: '); Readln(a);
        Writeln('Chu so hang chuc: ',a div 10);
        Write('Chu so hang don vi: ',a mod 10);
        Readln
End.

Bài 6:

Program BTT;
Uses crt;
Var a: 0..9;
Begin
        Clrscr;
        Write('Nhap so co 1 chu so: '); Readln(a);
        If a mod 2 = 0 then Write('So chan')
        Else Write('So le');
        Readln
End.

Bài 7:

Program BTT;
Uses crt;
Var a,b,c,d,max: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c, d: '); Readln(a,b,c,d);
        max:=a;
        If b>max then max:=b;
        If c>max then max:=c;
        If d>max then max:=d;
        Write('GTLN la: ',max);
        Readln
End.