Question

Answer 1

Bài 5.

Var i, n: integer;

s:real;

begin

write('Nhap n = ');readln(n);

s:=0;

for i:=1 to n do

s:=s+i/(i+1);

write('tong la ',s:10:2);

readln;

end.

Bài 6. (Điều kiện k phải là số lẻ)

Var i,k,T:integer;

begin

write('nhap k = ');readln(k);

i:=3;

while i<=k do

begin

T:=T + i;

i:=i+2;

end;

write('tong la ',T);

readln;

end.

Answer 2

5:

#include <bits/stdc++.h>

using namespace std;

long long i,n;

double a;

int main()

{

cin>>n;

a=0;

for (i=1; i<=n; i++)

a=a+(i*1.0)/((i+1)*1.0);

cout<<fixed<<setprecision(2)<<a;

return 0;

}