viết chương trình tìm max 4 số a,b,c,d sử dụng hàm tìm max 2 số x và y.

0 bình luận về “viết chương trình tìm max 4 số a,b,c,d sử dụng hàm tìm max 2 số x và y.”

1. Var a, b, c, d, max: integer;

   procedure smax(x, y);

     Begin

        If x>y then max:=x

        Else max:=y;

     End;

   Begin

       Write(‘nhap 4 so nguyen: ‘);

       Readln(a, b, c, d);

       Max:=a;

       Smax(max, b);

       smax(max, c);

       smax(max, d);

       Write(‘max = ‘, max);

       Readln

   End.

   Bình luận