Viết chương trình nhập vào 2 số từ bàn phím thực hiện đổi vị trí của 2 số đưa kết quả ra màn hình trước và sau khi đổi
2 câu trả lời
uses crt;
var a, b, c: integer;
begin
write('Nhap so thu nhat: ');
readln(a);
write('Nhap so thu nhi: ');
readln(b);
writeln('So truoc khi chuyen: ',a,' ',b);
c:=a;
a:=b;
b:=c;
writeln('So truoc khi chuyen: ',a,' ',b);
readln;
end.
program kaito;
uses crt;
var x, y, z: real;
begin
clrscr;
write('So thu nhat: x = '); readln(x);
write('So thu hai: y= '); readln(y);
writeln('Truoc khi doi: x = ',x,'; y = ',y);
z:=x;
x:=y
y:=z;
writeln('Sau khi doi: x = ',x,'; y = ',y);
readln
end.
Câu hỏi trong lớp
Xem thêm