viết CT hoán đổi giá trị của 2 biến: a=3;b=5 sau khi hoán đổi thì a=5;b=3.

2 câu trả lời

program bai_giai;
uses crt;
var a,b,tg:longint;
begin
clrscr;
a:=3;
b:=5;
writeln('chua hoan doi: a=',a,' ; b=',b);
tg:=a;
a:=b;
b:=tg;
write('sau khi hoan doi la: a=',a,' ; b=',b);
readln
end

PASCAL

proram hoan_doi;

uses crt;

var a, b, c: integer;

begin

clrscr;

writeln('Nhap a: ');

readln(a);

writeln('Nhap b: ');

readln(b);

c:=a;

a:=b;

b:=c;

writeln('a= ',a,'. b= ',b);

readln;

end.