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.