Viết hàm tìm max của 2 số nguyên nhập vào 2 số nguyên từ bàn phím sử dụng hàm để đưa ra max của 2 số đó
2 câu trả lời
program tim_max;
uses crt;
var a,b:integer;
{---Ham---}
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('So lon hon la: ',max(a,b));
readln;
end.
ues crt;
var a,b:longint;
procedure sosanh;
var min,max:longint;
begin
if a>b then begin max:=a;min:=b;end
else begin max:=b;min:=a;end;
writeln(' So lon hon la : ',max);
write(' So ba hon la : ',min);
end;
BEGIN
clrscr;
write(' Nhap a, b : ');readln(a,b);
sosanh;
readln
End.
