Viết chương trình tìm min của 3 số thực a,b,c đc nhập từ bàn phím Các bạn giúp mik vs khó quá mik k lm đc :((

0 bình luận về “Viết chương trình tìm min của 3 số thực a,b,c đc nhập từ bàn phím Các bạn giúp mik vs khó quá mik k lm đc :((”

1. program  min ;

   uses crt  ;

   var  a,b,c,min : integer ;

   begin

   clrscr ;

   writeln(‘nhap 3 so a,b,c=’);readln(a,b,c);

   min:=a ;

   if a>b then b:=min ;

   if b>c then c:=min ;

   writeln (‘gia tri nho nhat la ‘,min);

   readln

   end. 

   Bình luận