Viết trường chình nhập 2 số nguyên x,y từ bàn phím đổi giá trị của 2y sao cho x,y có giá trị tăng giần

0 bình luận về “Viết trường chình nhập 2 số nguyên x,y từ bàn phím đổi giá trị của 2y sao cho x,y có giá trị tăng giần”

1. program Min;
   uses crt;
   var x,y:integer;
   begin
      clrscr;
      writeln(‘Nhap x,y: ‘); readln(x,y);
       if x>y then 
      begin
         x:=x+y;
         y:=x-y;
         x:=x-y;
      end;
      write(‘x,y lan luot la: ‘,x,’ ‘,y);
      readln
   end.

   Trả lời

2. Program hoandoi;

   Uses crt;

   Var

    x,y,t:integer;

   Begin

    Clrscr;

    Write(‘x = ‘);readln(x);

    Write(‘y = ‘);readln(y);

    if x>y then

     begin

      t:=x;

      x:=y;

      y:=t;

     end;

   Write(x,’ ‘,y);

   readln

   end.

   Trả lời