Viết chương trình tính tổng: S = 1/1+1/2+1/3+…+1/n với giá trị n nhập vào từ bàn phím?
Viết chương trình tính tổng: S = 1/1+1/2+1/3+…+1/n với giá trị n nhập vào từ bàn phím?
By Eliza
By Eliza
Viết chương trình tính tổng: S = 1/1+1/2+1/3+…+1/n với giá trị n nhập vào từ bàn phím?
var i,n:longint;
s:real;
begin
write(‘Nhap n: ‘)’ readln(n);
for i:=1 to n do
s:=s+1/i;
write(‘s= ‘,s:0:3);
readln;
end.
uses crt;
var n,i:longint;s:extended;
begin
clrscr;
write(‘Nhap n: ‘); read(n);
for i:=1 to n do s:=s+1/i;
writeln(‘S = ‘,s:0:2);
readln
end.