viết chương trình tìm max, min của 4 số: a, b, c, d.

0 bình luận về “viết chương trình tìm max, min của 4 số: a, b, c, d.”

1. program ctpt;

   uses crt;

     var a, b, c, d, max, min: real;

   begin

         clrscr;

         write(‘Nhap a = ‘); readln(a);

         write(‘Nhap b = ‘); readln(b);

         write(‘Nhap c = ‘); readln(c);

         write(‘Nhap d = ‘); readln(d);

         max:=a;

         if max<b then max:=b;

         if max<c then max:=c;

         if max<d then max:=d;

         write(‘Max = ‘, max); 

         min:=a;

         if min>b then min:=b;

         if min>c then min:=c;

         if min>d then min:=d;

         write(‘Min = ‘, min); 

         readln

   end.

   Bình luận

2. đây bạn

   

   Bình luận