tính S = 1+ 1/ a+1 + 1/a+2 +...+1/a+n với a,n nhập từ bàn phím . viết chương trình cho bài toán
2 câu trả lời
program tinh;
uses crt;
var n,a,i:integer;
S:real;
Begin
clrscr;
write('n = ');readln(n);
write('a = ');readln(a);
S:=1;
for i:=1 to n do S:=S+1/(a+i);
write('S = ',S:2:2);
readln
End.
