Question

Viết chương trình nhập vào chiều cao của bạn An và Minh in ra kết quả bạn nào cao hơn

Answer 1

var a,b : real ;

begin

write('nhap chieu cao cua An'); readln(a);

write('nhap chieu cao cua Minh'); readln(b);

if a>b then write('ban An cao hon') else ('ban Minh cao hon');

readln

end.

Answer 2

var an,minh:real;

begin

write('nhap chieu cao cua an'); readln(an);

write('nhap chieu cao cua minh'); readln(minh);

if an>minh then write('ban an cao hon');

if an<minh then write('ban minh cao hon') else write('hai ban bang nhau');

readln

end.

Answer 3

Var a,b:integer;

Begin

Write('Chieu cao cua ban An'); Readln(a);

Wrrite('Chieu cao cua ban Minh'); Readln(b);

If a>b then write('Ban An cao hon');

If a<b then write('Ban Minh cao hon');

Readln

End.