viết chương nhập vào 2 số a,b in ra màn hình của 2 số,hoán đổi giá trị của hai số và thông báo giá trị sau khi hoán đổi
2 câu trả lời
program hoan_doi;
uses crt;
var hd,p,q: integer;
begin
clrscr;
write('nhap p:'); readln(p);
write('nhap q:'); readln(q);
write('gia tri ban dau cua p = ',p,' va ' q = ',q);
hd:=p;
p:=q;
q:=hd;
writeln;
writeln('gia tri cua p va q sau khi hoan doi la p =',p,' va q =',q);
readln
end.
uses crt;
var a, b : integer;
begin
clrscr;
write('nhap gia tri a :');readln(a);
write('nhap gia tri b :');readln(b);
a := a + b;
b := a - b;
a := a - b;
writeln('gia tri a sau khi hoan doi la :', a);
writeln('gia tri b sau khi hoan doi la :', b);
readln
end.
