Uses crt;

var i,a,b,tam:integer;

Begin

 clrscr;

 Write('Nhap 2 so a,b: ');readln((a,b);

 If a>b then

   begin

   a:=a*2;

   b:=b*2;

   End

 else if a<b

   begin

   tam:=a;

   a:=b;

   b:=tam;

   End;

 readln;

End.

uses crt;

var a,b:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

until a>=b;

readln;

end.

var a,b:integer;
begin
    read(a);
    read(b);
    if a=b then write(A,'=',B);
    if a>b then write(A,'>',B);
    if a<b then write(A,'<',B);
readln;
end.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>b) then writeln(b,' ',a)

else writeln(a,' ',b);

readln;

end.

a) 

Input: Dãy n số nguyên 

Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương

b) 

Bước 1: Nhập n và nhập dãy số

Bước 2: dem←0; i←1;

Bước 3: Nếu a[i]>0 thì dem←dem+1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất dem

Bước 7: Kết thúc

Input: Số nguyên N và dãy a1,a2,...,aN

Output: Số số nguyên có trong dãy

Thuật toán:

- Bước 1: Nhập N và dãy a1,a2,...,aN

- Bước 2: d←0; i←1;

- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc

- Bước 4: Nếu ai > 0 thì d←d+1;

- Bước 5: i←i+1, quay lại bước 3

B1 

/x/=7=>x thuộc {-7;7}

/x/=2=> x thuộc {2;-2}

/x/<3=> x thuộc {-2;-1;0;1;2}

b2

Nếu /a/=a thì a>0

Nếu /a/=-a thì a<0

Nếu /a/>a thì a<0