Mô tả thuật toán:

B1: i←100; tong←0;

B2: Nếu i mod 2=1 (i là số lẻ) thì tong→tong+i;

B3: i→i+1;

B4: Nếu i=200 thì đến B5, ngược lại quay lại B2.

B5: Xuất trong rồi kết thúc.

Viết chương trình:

uses crt;
var i,tong:integer;
begin
clrscr;
   for i:=100 to 200 do
      if i mod 2=1 then tong:=tong+i;
   writeln('Ket qua: ',tong);
readln
end.

Mô tả thuật toán:

Bước 1: S←0; i←100;

Bước 2: Nếu i=200 thì đi đến bước 5

Bước 3: Nếu i mod 2<>0 thì S←S+i; 

Bước 4: i←i+1; Quay lại bước 2

Bước 5: In S ra màn hình và kết thúc

Viết chương trình:

Program baitap;

Uses crt;

Var i,S:longint;

Begin

Clrscr;

S:=0;

For i:=100 to 200 do

If i mod 2<>0 then S:=S+i;

Writeln('Tong cac so le tu 100 den 200:',S);

Readln

End.