Viết trường chình nhập 2 số nguyên x,y từ bàn phím đổi giá trị của 2y sao cho x,y có giá trị tăng giần
2 câu trả lời
Program hoandoi;
Uses crt;
Var
x,y,t:integer;
Begin
Clrscr;
Write('x = ');readln(x);
Write('y = ');readln(y);
if x>y then
begin
t:=x;
x:=y;
y:=t;
end;
Write(x,' ',y);
readln
end.
program Min;
uses crt;
var x,y:integer;
begin
clrscr;
writeln('Nhap x,y: '); readln(x,y);
if x>y then
begin
x:=x+y;
y:=x-y;
x:=x-y;
end;
write('x,y lan luot la: ',x,' ',y);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
