Cho ba số a, b, c. Tìm số lớn nhất, gán giá trị Max. Cho bốn số a, b, c, d. Tìm số bé nhất, gán giá trị Min Mọi người giải giúp mình(em) nhanh nhanh

0 bình luận về “Cho ba số a, b, c. Tìm số lớn nhất, gán giá trị Max. Cho bốn số a, b, c, d. Tìm số bé nhất, gán giá trị Min Mọi người giải giúp mình(em) nhanh nhanh”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var a,b,c,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
           max:=a;

           If max<b then max:=b;

           If max<c then max:=c;

           Write(‘So lon nhat la: ‘,max);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var a,b,c,d,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap a, b, c, d: ‘); Readln(a,b,c,d);

           min:=a;

           If b<min then min:=b;

           If c<min then min:=c;

           If d<min then min:=d;
           Write(‘So nho nhat la: ‘,min);
           Readln
   End.

   Bình luận

2. Program mmmm;

   Uses crt;

   Var a, b, c, max: real;

   Begin

   Clrscr;

   Write(‘Nhap 3 so a b c’); Readln(a,b,c);

   max:=a;

   If max< b then max:=b;

   If max < c then max:=c;

   Write(‘So lon lon  trong 3 so ‘,max);

   Readln

   End.

   ————–

   Program mmhm;
   Uses crt;
   Var a, b, c, d, min : real;
   Begin
   Clrscr;
   Write(‘Nhap 4 so a b c d’); Readln(a,b,c,d);
   min:=a;
   If min > b then min:=b;
   If min > c then min:=c;

   If min > d then min:=d;
   Write(‘So nho nhat trong 3 so ‘,min);
   Readln
   End.

   Trong lúc làm có thể có sai sót, mong bạn kiểm tra lại

   Bạn lấy câu trả lời của yiyiducnhat sẽ chuẩn hơn đấy, vì lâu r mình cx chưa động lại pascal

   Bình luận