- Ý tưởng thuật toán.

Tạo một biến boolean bl được gán giá trị là true

Dựa vào biến bl để kiểm tra xem số a vừa nhập

            + Nếu a<=1 thì bl=false

            + Ngược lại nếu a<4 thì bl=true

+ Ngược lại cho một biến i chạy từ 2 đến căn bậc 2 của a. Trong khi chạy thì kiểm tra xem a có chia hết cho i hay không? Nếu a chia hết cho i thì bl=false

            + Kiểm tra bl.

                        - Nếu bl = true thì kết luận số a là số nguyên tố, ngược lại thì kết luận số a không phải là số nguyên tố

- Thuật toán.

            + Bước 1: Nhập số nguyên a

            + Bước 2: bl←True

            + Bước 3:

                        - Buớc 3.1: Nếu a<=1 thì bl=false

- Bước 3.2: Ngược lại nếu a<4 thì bl=true

- Bước 3.3: Ngược lại i ←2

- Bước 3.4: Nếu a chia i mà dư =0 thì bl←False

- Bước 3.5: i←i+1

- Bước 3.6: Nếu i> Trunc(sqrt(a)) thì tới bước 4, ngược lại thì quay lại bước 3.4

            + Bước 4: Kiểm tra bl

                        - Nếu bl=true thì kết luận a là số nguyên tố, ngược lại thì kết luận a không phải là số nguyên tố.

            + Bước 5: Đưa ra kết luận và kết thúc.

- Chương trình nguồn.

Program TINHTONG;

Var s,i,n:integer;

Begin

     write('nhap n:');

     readln(n);

     s:=0;

     for i:=1 to n do

         if (i mod 2)=0 then s:=s+i

         else s:=s-i;

     writeln('tong s=',s);

     readln;

End.