Question

[Trần Việt Long]

Viết chương trình tính tổng S = 1+2+3+...+1/n. Trong đó n là số nguyên được nhập từ bàn phím

Answer 1

[Nguyễn Lê Phước Thịnh]

Sửa đề: S=1/1+1/2+1/3+...+1/n

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

Answer 2

[Lê Chiêu Nguyên Vũ]

program tong;

uses crt;

var n,i:integer;

t:longint;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  t:=t+1/i;

writeln(t);

readln;

end.