câu 1:

vòng lặp thực hiện 10 vòng lặp

giá trị S=5

câu 2:

vòng lặp không thực hiền lần nào
nên giá trị S không thay đổi(s=10)

Chương trình:

program oken;
uses crt;
var n,s: byte;
begin
        clrscr;
        s:=10; n:=10;
        while s<10 do
                begin
                        n:=n+3;
                        s:=s-n;
                end;
        writeln('Gia tri cua S: ',s);
        readln;
end.

câu 3:

program oken;
uses crt;
var n,i: byte;
    s: real;
begin
        clrscr;
        write('nhap n: '); readln(n);
        for i:=1 to n do
                s:=s + 1/(n*(n+1));
        writeln('Tong S: ',s:0:3);
        readln;
end.

${Oken}$

1)

- Thực hiện 10 vòng lặp. Gí trị S=5

2)

- Máy tính sẽ thực hiện 1 vòng lặp. Khi kết thúc, giá trị của S=7

- Viết CT:

program S;
uses crt;
var n,S:integer;
begin clrscr;
     S:=10; n:=0;
   while s<=10 do
     begin
        n:=n+3; S:=S-n;
     end;
   write('S= ',S);
readln;
end.

3)

program tongS;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0; i:=1;

   while i<=n do

     begin

       S:=S+1/i*(i+1); i:=i+1;

     end;

   write('Tong S la: ',S);

readln;

end.

Học tốt!