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.
