1

Program  In_theo_thu_tu

Uses Crt

var i : Byte

Begin

         clrscr;

         i:=1

         For i:= 1 to 10 do Writeln(i);

         Readln;

End.

Câu 1:

program Xap_sep;

uses crt;

var A:array [1..500] of integer;

      n,i,j,tg: integer;

Begin

         write('Nhap n: '); readln(n);

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

         end;

         for i:=1 to n=1 do

              for j:=i+1 to n do

                   if A[i]<A[j] then

                   begin

                            tg:=A[i];

                            A[i]:=A[j];

                            A[j]:=tg;

                   end;

         write('Day sau khi sap xep giam dan: ');

         for i:=1 to n do write(A[i],'  ');

         readln

End.

Câu 2:

program nho_bang;

uses crt;

var n,i: integer;

Begin

         write('Nhap n: '); readln(n);

         write('Nhung so le <= ',n,': ');

         i:=1;

         while i<=n do

         begin

                  if i mod 2<>0 then write(i,'  ');

                  i:=i+1;

         end;

         readln

End.

Câu 3:

program Tong;

uses crt;

var n,i,T: integer;

Begin

         write('Nhap n: '); readln(n);

         i:=1;

         while i<=n do

         begin

                  if i mod 2=0 then T:=T+i;

                  i:=i+1;

         end;

         write('T = ',T);

         readln

End.

Câu 4:

program Tich;

uses crt;

var n,i,S: integer;

Begin

         write('Nhap n: '); readln(n);

         S:=1;  i:=1;

         while i<=n do

         begin

                  if i mod 2<>0 then S:=S*i;

                  i:=i+1;

         end;

         write('Tich = ',S);

         readln

End.