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}$
