viết chương trình con hoán đổi vị trí của 2 số nguyên a và b

2 câu trả lời

procedure doi(a, b: integer);

    Begin

         a:=a+b;

         b:=a-b;

         a:=a-b;

    End.

{GM Kiet}

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.

Câu hỏi trong lớp Xem thêm