`@`Xác định bài toán:

INPUT: Số tự nhiên N

OUTPUT: Tổng các số chẵn từ 1 đến N

`@`Mô tả thuật toán:

Bước 1: Nhập N

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

Bước 3:Nếu i>N thì đi đến bước 6

Bước 4: Nếu i mod 2=0 thì T←T+i;

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

Bước 6: Xuất T và kết thúc

`@`Viết chương trình:

Program baitap;

Uses crt;

Var i,T,N:integer;

Begin

Clrscr;

Write('N='); Readln(N);

T:=0;

For i:=1 to N do 

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

Writeln('Tong cac so chan tu 1 den ',N,':',T);

Readln

End.

Thuật toán:

B1: Nhập n; gán s:=0;

B2: Lặp từ 1→N

B3: Kiểm tra số chẵn

B4: Gán s:=s+i

B5: In kết quả, kết thúc thuật toán.

Chương trình:

Program tong_so_chan;
Uses crt;
Var
S,N,I:Integer;
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do
If (I mod 2=0) then
S:=S+I;
Writeln('Tong cac so chan la ',S);
Readln;
End.