Bài 11: Nhập vào chiều cao của bạn a và bạn b, in ra màn hình thông báo bạn nào cao hơn.
If a>b then writeln(‘Ban a cao hon’)
Else writeln(‘Ban b cao hon);
Bài 12: 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 11:
program sosanh;
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap chieu cao ban a: ‘); readln(a);
write(‘Nhap chieu cao ban b: ‘); readln(b);
if a>b then writeln(‘Ban a cao hon’) else writeln(‘Ban b cao hon’);
readln;
end.
Bài 12:
program tinh;
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
if b<0 then writeln(‘Phep chia khong thuc hien duoc’) else writeln(a/b:0:3);
readln;
end.
11.
var a,b:real;
begin
write(‘Nhap chieu cao ban a,b: ‘); readln(a,b);
if a>b then write(‘Ban a cao hon’) else
if b>a then write(‘Ban b cao hon’) else
write(‘Hai ban cao bang nhau);
readln
end.
12.
var a,b:real;
begin
write(‘Nhap a,b: ‘); readln(a,b);
if b<0 the write(‘Phep chia khong thuc hien duoc’)
else write(‘Ket qua la: ‘,a/b:0:4);
readln
end.