Viết chương trình nhập hai số nguyên a bỏ từ bàn phím khác nhau và in ra màn hình theo thứ tự Không giảm dần

0 bình luận về “Viết chương trình nhập hai số nguyên a bỏ từ bàn phím khác nhau và in ra màn hình theo thứ tự Không giảm dần”

1. program khonggiam;

   uses crt;

   var a:array[1..2] of integer;

      begin

          clrscr;

          for i:=1 to 2 do

                 begin

                         write(‘ Nhap so thu ‘,i,’ : ‘);       readln(A[i]);

                 end;

           if A[i]>A[2] then writeln(A[1],’ ‘,A[2])

                                else writeln(A[2],’ ‘,A[1]);

            readln;

      end.

   {bài nay mình sử dụng mảng, nếu chưa học thì đọc 2 lần a,lần 1 cho b=a r so sánh a với b)

   Bình luận

2. program b1;

   uses crt;

   var a,b,k:integer;

   begin

   clrscr;

   writeln(‘nhap so a’);

   readln(a);

   writeln(‘nhap so b’);

   readln(b);

   tg:=a;

   a:=b;

   b:=tg;

   writeln(‘gia tri cua a la’,a);

   writeln(‘gia tri cua b la’, b);

   readln;

   end.

   Bình luận