Question

Viết chương trình so sánh cân nặng của 2 bạn an và bình biết cân nặng của 2 bạn là số thực

Answer 1

Answer 2

uses crt;

var a,b:real;

begin

clrscr;

write('nhap can nang cua an:'); readln(a);

write('nhap can nang cua binh:'); readln(b);

if a>b then writeln('an nang hon binh')

else if a<b then writeln('binh nang hon an')

else writeln('hai ban nang ngang nhau');

readln;

end.