Dùng chương trình con của 2 số để tìm 3 số
program nho_nhat;
uses crt;
var a,b,c,nn:integer;
{---Chuong-trinh-con---}
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
nn:=min(a,b);
nn:=min(nn,c);
write('So nho nhat la: ',nn);
readln;
end.
Dùng chương trình con của 3 số
program nho_nhat;
uses crt;
var a,b,c:integer;
{---Chuong-trinh-con---}
function min(x,y,z:integer):integer;
begin
min:=x;
if y<min then min:=y;
if z<min then min:=z;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
write('So nho nhat la: ',min(a,b,c));
readln;
end.
