Viết chương trình so sánh chiều cao của 2 bạn

Question

Viết chương trình nhập chiều cao của 2 bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của 2 bạn

Answer 1

Program BinhiucuaTri ;

uses crt ;

var a , b : integer ;

begin

clrscr ;

write ( ' nhap chieu cao ban Long ' ) ;

readln (a) ;

write ( ' nhap chieu cao ban Trang ' ) ;

readln (b) ;

If a > b then wirte ( ' ban Long cao hon ban Trang ' ) else
if a < b then wirte ( ' ban Trang cao hon bạn Long ' ) else 
write ( ' 2 ban bang nhau ' ) ;

readln ;

end.

Answer 2

program BT;

Uses crt;

var x,y : integer;

writeln('Long cao' x 'met')'

readln(x);

writeln('Trang cao' y 'met');

readln(y);

If x > y then writeln('ban Long cao hon ban Trang');

If x < y then writeln('ban Trang cao hon ban Long') else writeln('hai ban bang nhau');

readln;

end.

Answer 3

Đây là chương trình tổng

Bạn có thể tham khỏa đầy đủ tại đây

CHúc bạn học tốt

Answer 4

Program     Ai_cao_hon
Use           Crt;
Var             Hau, Thu: real;
Begin
   Clrscr;
Write('Nhap chieu cao cua Hau'); Readln(Hau);
Write('Nhap chieu cao cua Thu'); Readln(Thu);
If Hau>Thu then writeln('Ban Hau cao hon');