24. So sánh chiều cao của d bạn Lan và Trang rồi in kết quả ra màn hình a) mô tả thuật toán b) viết chương trình

a/

thuật toán:

 b1: nhập chiều cao của Lan (dl) và Trang (dt)

 b2: so sánh và in ra màn hình hợp lí

         if dl>dt then write (‘Lan cao hon Trang’);

         if dl<dt then write (‘Trang cao hon Lan’);

         if dl=dt then write (‘Lan cao bang Trang’);

b/chương trình

uses crt;

var dl,dt: integer;

begin

 clrscr;

 write (‘nhap chieu cao cua Lan(cm): ‘);   readln (dl);

 write (‘nhap chieu cao cua Trang(cm): ‘);   readln (dt);

         if dl>dt then writeln (‘Lan cao hon Trang’);

         if dl<dt then writeln (‘Trang cao hon Lan’);

         if dl=dt then writeln (‘Lan cao bang Trang’);

readln;

end.