viết chương trình con hoán đổi vị trí của 2 số nguyên a và b 18/07/2021 Bởi Charlie viết chương trình con hoán đổi vị trí của 2 số nguyên a và b
program HoanDoiGiaTriHaiSo; 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. Bình luận
program HoanDoiGiaTriHaiSo;
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.
procedure doi(a, b: integer);
Begin
a:=a+b;
b:=a-b;
a:=a-b;
End.
{GM Kiet}