viết phương trình tính
1-1/2+1/3-……..+1/n
n la số được nhập từ bàn phím
viết phương trình tính 1-1/2+1/3=+1/n n la số được nhập từ bàn phím
By Parker
By Parker
viết phương trình tính
1-1/2+1/3-……..+1/n
n la số được nhập từ bàn phím
uses crt;
var n,i:longint; s:real;
begin
clrscr;
write(‘n=’);readln(n);
s:=1;
for i:=2 to n do if i mod 2=0 then s:=s+1/i else s:=s-1/i;
writeln(s);
readln
end.
program baigiai;
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+1/i
else t:=t-1/i;
write(‘Tong la: ‘,t:2:2);
readln
end.