Program NN;
Uses crt;
Var n,i,s: longint;
ss: extended;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
//Cau 2
s:=0;
For i:=1 to n do
s:=s+(2*i+1);
Writeln('S = ',s);
//Cau 3
s:=0;
For i:=1 to n do
s:=s+2*n;
Writeln('S = ',s);
//Cau 4
ss:=0;
For i:=1 to n do
ss:=ss+1/i;
Writeln('S = ',ss:0:2);
//Cau 5
ss:=0;
For i:=1 to n do
ss:=ss+1/(2*i);
Writeln('S = ',ss:0:2);
//Cau 7
s:=0;
For i:=1 to n do
If i mod 2 <> 0 then s:=s+i;
Writeln('S = ',s);
//Cau 8
s:=0;
For i:=1 to n do
If i mod 2 = 0 then s:=s+i;
Writeln('S = ',s);
//Cau 9
ss:=0;
For i:=1 to n do
If i mod 2 <> 0 then ss:=ss+1/i;
Writeln('S = ',ss:0:2);
Readln
End.
