Question

 

S=1/2 + 1/3 + 1/4 + .... 1/n

viết chương trình của bài toán trên

 

cứu em mai e thi r ạaaaaaaaa

Answer 1

program tinh_toan;

uses crt;

var S;i:integer;

begin

S:=0;

for i:=2 to 100 do S:=S+1/i;

writeln(S);

readln;

end.

Answer 2

Var i,n:integer;

s:real;

Begin

Write('n = ');readln(n);

For i:=2 to n do s:=s+1/i;

Write('tong la ',s:10:2);

Readln;

End.