a) Thuật toán 1:

-Số lần lặp: 10

-Giá trị của S=5.0

Chương trình:

uses crt;

var s,x: real;

       dem: integer;

begin

             clsrcr;

             s:= 10;

             x:=0,5;

             dem:=0;

             while s > 5,2 do

                 begin

                         s:= s-x;

                         dem:= dem +1;

                  end;

             writeln('so lan lap: ',dem);

             writeln('gia tri s la: ',s);

readln

end.

b) Thuật toán 2:

-Số lần lặp: 0 

-Giá trị S=10

Chương trình:

uses crt;

var  s,n: real;

       dem: integer;

begin

             clsrcr;

             s:= 10;

             n:=0;

             dem:=0;

             while s < 10 do

                 begin

                         n:= n+3;

                         s:= s-x;

                         dem:= dem +1;

                  end;

             writeln('so lan lap: ',dem);

             writeln('gia tri s la: ',s);

readln

end.