vieết chương trình nhập chiều cao của 2 bạn long và trang in ra man hinh ket qua kiem tra so sanh chieu cao 2 ban

1 câu trả lời

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap chieu cao cua long='); Readln(a);

Write('Nhap chieu cao cua trang='); Readln(b);

if a>b then writeln('long cao hon') else

b>a then writeln('trang lon hon');

Readln;

End.

Câu hỏi trong lớp Xem thêm