Verified answer

uses crt;

var i,n,dau:integer;

s:real;

begin

clrscr;

i:=2;s:=1;dau:=-1;

while i<=120 do

begin

s:=s+dau*(1/i);

dau:=dau*(-1);

inc(i,2);

end;

writeln('S=',s:6:2);

readln;

end.

Program bieuthuc;

var i,n:longint;

s:real;

begin

i:=2;

s:=1;

write('nhap n');readln(n);

while i <= n do

begin

s:=s-1/i;

inc(i,2);

if i <= n then

begin

s:=s+1/i;

inc(i,2);

end;

end;

write('ket qua ',s:4:4);

readln;

end.

Dùng biến temp để đổi dấu, nhập n = 51 sẽ ra kết quả. Còn nếu không thì bỏ phần nhập biến n đi và thay vào số 51.

Program Tinh_tong;

var

i,temp,n : integer;

s: real;

begin

write('NHAP VAO 1 SO NGUYEN DUONG : '); readln(n);

s:= 1;

temp:= -1;

for i := 1 to n do begin

temp:= temp*-1;

s:= s + temp*1/(2*i);

end;

writeln('Tong S = ',s:5:5);

readln;

end.