Viết Thuật toán tính tổng các số chẵn của 20 số tự nhiên đầu tiên

$Input$ 20 số chẵn đầu tiên

$Output $ tính tổng $S$

Thuật toán

Bước 1: Nhập 40 số (vì 20 số chẵn => từ 1 đến n phải 40 số mới đủ 20 số chẵn )

Bước 2 : gán s:=0;

Bước 3: cho biến i chạy từ 1 - 40 nếu $i mod2=0 $ => $S:=S+i$

Bước 4 : In ra kết quả và kết thúc thuật toán 

Chương trình

Program Hotboy ;

Uses crt;

Var i,s : integer ;

Begin

Clrscr;

For i:=1 to 40 do

Begin

If (i mod 2=0) then s;=s+i;

Write('tinh tong',S);

End;

Readln

End.

Program BTT;
Uses crt;
Var i,t: longint;
Begin
        Clrscr;
        t:=0;
        For i:=1 to 20 do
                If i mod 2 = 0 then t:=t+i;
        Write('Tong cac so chan cua 20 so tu nhien dau tien: ',t);
        Readln
End.