Nhập vào 3 số a, b, c tìm GTLN(Max)

0 bình luận về “Nhập vào 3 số a, b, c tìm GTLN(Max)”

1. Program max;

   Var a, b, c, Max: integer;

   Begin

       Write (‘Nhap a= ‘); Readln (a);

       Write (‘Nhap b= ‘); Readln (b);

       Write (‘Nhap c= ‘); Readln (c);

       Max:= a;

       If b> Max then Max:=b;

       If c> Max then Max:=c;

       Write(‘Max= ‘,Max);

       Readln;

   End.

   Bình luận