Viết chương trình nhập vào 2 số a,b. In ra màn hình kết quả so sánh 2 số đó!
2 câu trả lời
Var a,b:integer;
Begin
writeln('nhap a,b=');readln(a,b);
If a>b then writeln('a lon hon b');
If a<b then writeln('a nho hon b');
If a=b then writeln('a bang b');
readln;
End.
Xin ctlhn ạ!
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a,b: '); readln(a,b);
if a>b then write(a,' lon hon ',b)
else if a<b then write(a,' nho hon ',b)
else if a=b then write(a,' bang ',b);
readln;
end.