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.