Thuật toán 1:
---
- Số vòng lặp: 5
- Giá trị của S: 5
Chương trình:
---
Program FNG;
Uses crt;
Var s,x: longint;
Begin
Clrscr;
s:=10; x:=1;
While S>5 do
s:=s-x;
Write('S = ',s);
Readln
End.
---
Thuật toán 2:
---
- Số vòng lặp: 0
- Giá trị của S: 10
Chương trình:
---
Program FNG;
Uses crt;
Var s,n: longint;
Begin
Clrscr;
s:=10; n:=0;
While s<10 do
Begin
n:=n+3;
s:=s-n;
End;
Write('S = ',s);
Readln
End.