- For .. to .. do :
uses crt;
var i, n : integer; S : real;
begin
clrscr;
write('Nhap so n = '); readln(n);
for i := 1 to n do S := S + 1 / (i * 2);
write('S = ', S : 2 : 2);
readln
end.
- While .. do :
uses crt;
var i, n : integer; S : real;
begin
clrscr;
write('Nhap so n = '); readln(n);
i := 1; S := 0;
while i <= n do
begin
S := S + 1 / (i * 2);
i := i + 1;
end;
write('S = ', S : 2 : 2);
readln
end.