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 câu trả lời
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.