Viết chương trình tìm số lớn nhất trong hai số. Giải vs
2 câu trả lời
Program baitap;
Uses crt;
Var x,y:integer;
Begin
Clrscr;
Write('So thu nhat:'); Readln(x);
Write('So thu hai:'); Readln(y);
If x>y then writeln('So lon nhat la ',x);
If x<y then writeln('So lon nhat la ',y);
If x=y then writeln('Hai so do bang nhau');
Readln
End.
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln('So lon nhat trong hai so la: ',a);
if b>a then writeln('So lon nhat trong hai so la: ',b);
if a=b then writeln('Hai so bang nhau');
readln;
end.
Xin hay nhất!
