Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).

0 bình luận về “Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).”

1. Uses crt;
   Var a, b, c, d,max:real;

   Begin
   Clrscr;
   Writeln (‘TIM SO LON NHAT TRONG BON SO A, B, C, D’);
   Writeln(‘—————————————————————‘);
   Write (‘Nhap a: ‘); Readln(a);
   Write (‘Nhap b: ‘); Readln(b);

   Write (‘Nhap c: ‘);  Readln(c);
   Write (‘Nhap d: ‘); Readln(d);

   max:=a;
   If b>max then max:=b;

   If c>max then max:=c;

   If d>max then max:=d;
   Writeln (‘So lon nhat la:’,max:1:2);

   Readln;

   End.

   Bình luận