pascal

[kakakath15]

Tính tổng:
1+1/2+1/3+...+1/n
1-1/2-1/3-1/4-..-1/n
1-1/2+1/3-1/4+..-1/n
1+1/2-1/3+1/4-..+1/n
có thể sử dung lệnh for... do
hoặc while...do
các anh chị ơi giúp em với ,con 1 ngày nữa thôi

[duongtien]

Vào box pascal học hỏi đi bạn ơi.... Nếu mình ko nhầm thì những bài này post lên diễn đàn rồi. Bạn chịu khó tìm đi nhé.

[kylobytes]

//code nhap n. Ko viet duoc thi chiu
s:=1;
for i:=1 to n do
     s:=s+1/i;
writeln('Tong la:',s);
readln;
end. 

Mấy cái còn lại tương tự.
Ngoài ra xem ở đây http://ddth.com/showthread.php?t=149951

[dmtmufc]

sửa lại chút:
for i:=2 to n do
s:=s+1/i;

[kylobytes]

ờ nhầm. Hoặc đặt s:=0;