Question

Viết chương trình nhập cân nặng của hai bạn a và b in ra màn hình kết quả so sành cân nặng của hai bạn

Answer 1

Program Ai_nặng_hơn;

var a,b : real;

begin

writeln ('Nhập cân nặng cảu bạn a :'); readln(a);

writeln ('Nhập cân nặng cảu bạn b :'); readln(b);

if a>b then writeln ('Bạn a nặng hơn bạn b')

else if a<b then writeln ('Bạn b nặng hơn bạn a')

else writeln ('Hai bạn a và b nặng bằng nhau');

readln

end.

Answer 2

program so_sanh_can_nang;

uses crt;

var x,y: real;

begin

write('Moi ban nhap can nang cua ban a va b');readln(a,b);

if a>b then writeln('Ban a nang hon ban b')

else if a<b then writeln('Ban a nhe hon ban b')

else writeln('Hai ban a va b bang nhau');

readln;

end.