Cần gấp 5phút nữa ạ! Viết chương trình tìm và tính tổng max, min của 3 số được nhập từ bàn phím

0 bình luận về “Cần gấp 5phút nữa ạ! Viết chương trình tìm và tính tổng max, min của 3 số được nhập từ bàn phím”

1. uses crt;
   var a,b,c : real;
   min, max : real;
   begin
   write(‘Nhap 3 so :’);
   readln(a,b,c);
   min:=a;
   if min > b then min:=b;
   if min > c then min:=c;
   max:=a;
   if max<b then max:=b;
   if max<c then max:=c;
   write(‘Tong min va max la :’, min+max);
   readln
   end.

   Bình luận

2. program max_min;

   uses crt;

   var S:longint;

         a,b,c,max,min:integer;

   begin clrscr;

      writeln(‘Nhap vao 3 so: ‘); readln(a,b,c);

           max:=a;

        if b>max then max:=b;

        if c>max then max:=c;

      writeln(‘Max: ‘,max);

           min:=a;

        if b<min then min:=b;

        if c<min then min:=c;

      writeln(‘Min: ‘,min);

           S:=max+min;

      writeln(‘Tong max, min la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận