Viết chương trình nhập vào một số nguyên n(1≤n≤200). Tính và in ra màn hình số nguyên t, trong đó t được tính theo công thức như sau: T=1+2/3^2+3/4^2+(n-1)/n^2 Yêu cầu: Pascal/C++

Pascal:

uses crt;
var n,i:longint; t:real;
begin
clrscr;
   write('Nhap n: ');readln(n);
   while not((1<=n)and(n<=200)) do
      begin
         write('Nhap lai n: ');readln(n);
      end;
   t:=1;
   for i:=2 to n-1 do t:=t+i/sqr(i+1);
   writeln('T=',t:0:5);
readln
end.

C++:

#include <bits/stdc++.h>
using namespace std;

int i,n; float t;

int main()
{
 cout<<"Nhap n: ";cin>>n;
   while (!(1<=n && n<=200)){
    cout<<"Nhap lai n: ";cin>>n;
 }
 t=1;
 for (i=2; i<=n-1; ++i) t=t+i/((i+1.0)*(i+1.0));
 cout<<fixed<<setprecision(5)<<t;
}

T = 1 + $\frac{2}{3²}$ + $\frac{3}{4²}$ + ... + $\frac{n - 1}{n²}$

* Chương trình Pascal :

uses crt;

var i, n : byte; T : real;

begin

clrscr;

write('nhap so n : '); readln(n);

if (n >= 1) and (n <= 200) then

begin

T := 1;

for i := 3 to n do T := T + (i - 1) / (i * i);

write('T = ', T:2:3);

end;

readln

end.

* Chương trình C ++ :

#include <iostream>

using namespace std;

int main()

{

    float i, n, T = 1;

    cout <<"nhập số n : ";

    cin >> n;

    if ((n >= 1) and (n <= 200)) {

        for (i = 3; i <= n; i ++) T = T + (i - 1) / (i * i);

        cout <<"T = "<< T;

    }

    return 0;

}