viết chương trình tính tổng s= 1/1*2 + 1/2*3 + 1/3*4 +…+1/n*(n+1) với n là số tự nhiên nhập từ bàn phím
mn giúp mình với!
viết chương trình tính tổng s= 1/1*2 + 1/2*3 + 1/3*4 +…+1/n*(n+1) với n là số tự nhiên nhập từ bàn phím
mn giúp mình với!
uses crt;
var i,n:longint; s:real;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do s:=s+1/i*(i+1);
writeln(‘s=’,s);
readln
end.
đây bạn