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