2/3 + 3/4 + chấm chấm chấm + n phần n + 1 biết rằng n nhập từ bàn phím

1 câu trả lời

Program baitap;

Uses crt;

Var n,i:integer;

      S:real;

Begin

Clrscr;

Write('n='); Readln(n);

S:=0;

For i:=2 to n do S:=S+n/(n+1);

Writeln('Ket qua:',S);

Readln

End.

Câu hỏi trong lớp Xem thêm