Question

[quachkhaai]

Cho thuật toán :

Bước 1 : Nhập số N nguyên dương

Bước 2 : S <- 0 ; i <- 1

Bước 3 > Nếu i > N thid đưa ra giá trị Tổng rồi kết thúc

Bước 4 : S <- S + 1/i

Bước 5 i <- i+1

Bước 6 : quay lại bước 3

Help Me ! T-T

Answer 1

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

uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
writeln('tong la: ',s:4:2);
readln;
end.