Viết trương trình nhập vào 2 biến x,y . Tìm giá trị nhỏ nhất của hai số đó
Quảng cáo
1 câu trả lời 170
Uses crt;
Var x, y: real;
Begin
Clrscr;
Write('Nhap x = '); readln(x);
Write('Nhap y = '); readln(y);
if(x < y){
Writeln('x = ',x);
}
else{
Writeln('y = ',y);
}
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86328
Gửi báo cáo thành công!
