PROGRAM Ai_cao_hon;
USES crt;
VAR Long, Trang: REAL;
BEGIN
clrscr;
write('Nhap chieu cao cua Long:'); readln(Long);
write('Nhap chieu cao cua Trang:'); readln(Trang);
IF Long>Trang THEN writeln('Ban Long cao hon');
IF Long<Trang THEN writeln('Ban Trang cao hon')
ELSE writeln('Hai ban cao bang nhau');
readln
END.
Download: http://www.mediafire.com/?wcwowzbmw1bam1q
USES crt;
VAR Long, Trang: REAL;
BEGIN
clrscr;
write('Nhap chieu cao cua Long:'); readln(Long);
write('Nhap chieu cao cua Trang:'); readln(Trang);
IF Long>Trang THEN writeln('Ban Long cao hon');
IF Long<Trang THEN writeln('Ban Trang cao hon')
ELSE writeln('Hai ban cao bang nhau');
readln
END.
Download: http://www.mediafire.com/?wcwowzbmw1bam1q