Tìm giá trị nhỏ nhất trong 3 số a,b,c nhập từ bàn phím

0 bình luận về “Tìm giá trị nhỏ nhất trong 3 số a,b,c nhập từ bàn phím”

1. program timsonhonhattrong3so ;

   var a,b,c,min : longint ;

   begin

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

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

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

   min:=a ;

   if min>b then min:=b

   else if min>c then min:=c;

   writeln(‘So nho nhat la ‘,min);

   readln

   end.

   Bình luận