Question

Viết chương trình tìm Max của 4 số a, b, c, d có sử dụng hàm tìm max hai số x,y

Answer 1

uses crt;

var a,b,c,d:integer;

{-------------------chuong-trinh-con-----------------------}

function max(x,y:integer):integer;

begin

if x<y then max:=y

else max:=x;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

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

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

write('c='); readln(c);

write('d='); readln(d);

writeln(max(a,max(b,max(c,d))));

readln;

end.