Đề : Viết chương trình hoán đổi vị trí của 2 số nguyên a và b theo 2 cách sau : + Sử dụng chương trình chính. + Sử dụng chương trình con. Mọi ng giúp tui với nha 🙏.
2 câu trả lời
uses Crt;
var A : integer; B : integer; Tam : integer;
begin
Write(‘A=’);
ReadLn(A);
Write(‘B=’);
ReadLn(B);
Tam := A; A := B; B := Tam;
WriteLn(‘A = ‘， A);
WriteLn(‘B = ‘， B);
Readln;
end.
program hoanvi;
var a,b,x:integer;
begin
writeln('nhap so a');readln(a);
writeln('nhap so b'); readln(b);
x:=a;
a:=b;
b:=x;
writeln('hai so a b sau khi hoan vi' ,a,b:4);
readln;
end.
{ dung chuong trinh con}
program chuongtrinh;
var a,b,x:integer;
begin
procedure hoanvi;
begin
writeln('nhap so a'); readln(a);
writeln('nhap so b'); readln(b);
x:=a;
a:=b;
b:=x;
writeln('so sau khi hoan vi , 'a ,b:4);
end;
begin
hoanvi;
end.
