Thuật toán 2

Bước 1: S:=10; n:=0;
Bước 2: Nếu S>= 10, chuyển tới bước 4.
Bước 3: n:=n+3; S:=S-n quay lại bước 2.
Buớc 4: Thông báo S và kết thúc thuật toán.

Chương trình

PROGRAM CT49;
USES crt;
VAR S, n: BYTE;
BEGIN
Writeln('Chuong trinh thuat toan 2');
S:=10; n:=0;
WHILE S<10 DO n:=n+3; S:=S-n;
Write('S= ',S);
Readln
END.

Download: http://www.mediafire.com/?b4vj2f7e4wt46v0
Full từ CT25 -> CT49: http://www.mediafire.com/?6axt6px2uksr2n3