Bài 1: Nhập vào chiều cao của 2 bạn A và bạn B, in ra màn hình thông báo bạn nào cao hơn. Bài 2: Viết chương trình tính kết quả a chia b (a/b), với a,b được nhập từ bàn phím. Nếu trường hợp b<0 thì in thông báo phép chia không thực hiện được.

Bài 1:

Program BTT;
Uses crt;
Var a,b: real;
Begin
        Clrscr;
        Write('Nhap chieu cao ban A: '); Readln(a);
        Write('Nhap chieu cao ban B: '); Readln(b);
        If a>b then Write('Ban A cao hon')
        Else if a<b then Write('Ban B cao hon')
        Else Write('Hai ban cao bang nhau');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a,b: longint;
    t: extended;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If b<0 then Write('Khong chia duoc')
        Else
        Begin
                t:=a/b;
                Write(a,' : ',b,' = ',t:0:2);
        End;
        Readln
End.

Bài 1:

Var A, B: Real;

BEGIN

    Readln(A, B);

    if A = B then Writeln('Hai ban cao bang nhau')

    else if A > B then Writeln('A cao hon B')

    else Writeln('B cao hon A');

END.

Bài 2:

Var a, b: Real;

BEGIN

     Readln(a, b);

     if (b<=0) Writeln('Phep chia khong thuc hien duoc')

     else Writeln(a/b); 

END.