Đăng nhập để hỏi chi tiết
1
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var x, y, z, a, b, c, m : real;
begin
clrscr;
write('Nhap do dai 3 canh : ');
readln(x, y, z);
a := x + y - z;
b := x + z - y;
c := y + z - x;
m := a;
if b < m then m := b;
if c < m then m := c;
write('Tang gia tri 1 so it nhat : ', m : 1 : 5);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin