Viết trương trình nhập vào hai biến x,y thực. Tìm giá trị nhỏ nhất của hai số đó
Quảng cáo
1 câu trả lời 144
Uses crt;
Var x, y, l: real;
Begin
Clrscr;
Write('Nhap x = '); readln(x);
Write('Nhap y = '); readln(y);
l:=x;
x:=y;
y:=l;
Writeln(x,' va ',y,' sau khi hoan doi la: ');
Writeln('x = ',x);
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!
