Question

viết chương trình nhập vaof từ bàn phím 2 số nguyên a,b

hãy so sánh 2 số a ,b sau đó đưa kết quả ra màn hình

Answer 1

program bt;

Var a,b:integer;

Begin

Writeln('nhap a:=');

Readln(a);

Writeln('nhap b:=');

Readln(b);

If a>b then writeln ('a lon hon b') else writeln ('a be hon b');

Readln;

End.

Answer 2

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.