Viết chương trình nhập vào 3 số nguyên a, b, c. Hãy tìm số lớn nhất, số bé nhất trong 3 số nguyên đó? Hãy sắp xếp theo thứ tự tăng dần?

0 bình luận về “Viết chương trình nhập vào 3 số nguyên a, b, c. Hãy tìm số lớn nhất, số bé nhất trong 3 số nguyên đó? Hãy sắp xếp theo thứ tự tăng dần?”

1. uses crt;

   var a,b,c,max,min:longint;

   begin

   clrscr;

   write(‘nhap ba so a,b,c: ‘);readln(a,b,c);

   max:=a;

   if b>max then max:=b;

   if c>max then max:=c;

   write(‘so lon nhat la: ‘,max);

   min:=a;

   if b<min then min:=b;

   if c<min then min:=c;

   write(‘so nho nhat la: ‘,min);

   if (min<a) and (a<max) then write(min:2,a:2,max:2);

   if (min<b) and (b<max) then write(min:2,b:2,max:2);

   if (min<c) and (c<max) then write(min:2,c:2,max:2);

   readln

   end.

   Bạn chạy thử mình ngẫu hứng viết ctr không biết có chạy được không nưa

   Bình luận