Viết chương trình CON nhập vào hai số nguyên dương a và b (a,b < 1000) hoán đổi giá trị của a và b và hiển thị kết quả ra màn hình sau đó cho biết số nào lớn hơn hoặc nhỏ hơn trong 2 số
Viết chương trình CON nhập vào hai số nguyên dương a và b (a,b < 1000) hoán đổi giá trị của a và b và hiển thị kết quả ra màn hình sau đó cho biết số nào lớn hơn hoặc nhỏ hơn trong 2 số
var a, b: word;
Procedure doi;
Begin
a:= a+b; b:= a-b; a:= a-b;
If a>b then write(‘a lon hon’)
Else if b>a then write(‘b lon hon’)
Else write(‘hai so bang nhau’);
End;
Begin
Write(‘nhap a va b: ‘); readln(a, b);
Doi;
Readln
End.