K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

 s:=s+(i/(i*sqr(i+5)));

writeln(s:4:2);

readln;

end.