Question

Viết chương trình nhập vào 2 số nguyên a và b từ bàn phím và in ra màn hình số nhỏ nhất trong 2 số đó ( sử dụng chương trình con để tìm số nhỏ nhất trong 2 số a và b)

Answer 1

uses crt;

var a,b:integer;

procedure min(var x,y:integer);

begin

if x>y then writeln('so nho nhat la: ',y)

else if x<y then writeln('so nho nhat la: ',x)

else writeln('hai so bang nhau');

end;

begin

clrscr;

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

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

min(a,b);

readln;

end.