Question

Viết chương trình tính tổng : S= 1+1/2+1/3+...+1/n

Answer 1

Mik bắt đầu làm từ phần begin nhé

Begin

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

For i:=1 to n do S:=S+(1/i)

Write('S=',S:5:3);

Readln

End.

Answer 2

Quên, sau câu lệnh gán gtrị S thì phải có chấm phẩy nhé

Answer 3

bn tự khai báo nhé!!!

begin

clrscr;

s:=1;

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

for i:=2 to n do

s:=s+(1/i);

writeln('tong s la:',s:4:2);

readln

end.

Answer 4

Begin

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

For i:=1 to n do S:=S+(1/i)

Write('S=',S:5:3);

Readln

End.