cái đề này ý chỉ n đó
Vd: với n=3
1/1+2/2+3/3
=1 +1 +1
=3
Vậy kết quả sẽ bằng n nhưng mà để đúng với đề thì mình sẽ làm chương trình luôn
program tinhtong;
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do
t:=t+i/i;
write('Tong la: ',t:2:0);
readln
end.