Giúp mk câu này với mk cần gấp! Lập trình nhập vào từ bàn phím 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất và nhỏ nhất t

0 bình luận về “Giúp mk câu này với mk cần gấp! Lập trình nhập vào từ bàn phím 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất và nhỏ nhất t”

1. Program bai_tap;

   Uses crt;

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

   Begin 

   Writeln (‘nhap a,b,c=’); 

   Readln (a,b,c);

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

   If c>max then max:= c;

   If a<b then min:=a else min:=b;

   If c<min then min:=c;

   Writeln (‘so lon nhat la:’, max);

   Writeln (‘so nho nhat la:’, min);

   Readln

   End.

   Bình luận