câu 1:

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:=0;
        while s<10 do
                begin
                        n:=n+3;
                        s:=s-n;
                end;
        writeln('Gia tri cua S: ',s);
        readln;
end.

câu 2:

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

${Oken}$

1)

- 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.

2) 

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!