hoán đổi a và b
VAr
a,b,tg:Integer;
BEGIN
write('nhap a ' );readln(a);
write('nhap b ');readln(b);
tg:=a;
a:=b;
b:=tg;
write('a la ',a);
writeln;
write('b la ',b);
readln;
end.
còn 1 cách nữa nhưng hơi ăn gian
VAr
a,b:Integer;
BEGIN
write('nhap a ' );readln(a);
write('nhap b ');readln(b);
write('a la ',b);
writeln;
write('b la ',a);
readln;
end.