Viết chương trình 1.Tính tổng S= 1/ 1.3 + 1/2.4 + 1/3.5+... + 1/n(n+2) 2. Tính tổng T=2+4+6...+2n

`1)`

var i,n:integer;s:real;

begin

clrscr;

readln(n);

for i:=1 to n do s:=1/(n*(n+2));

write(s:10:2);

readln

end.

`2)`

var i,n,s:integer;

begin

clrscr;

readln(n);

for i:=1 to 2n do if i mod 2=0 then s:=s+i;

write(s);

readln

end.

1. uses crt;

    var i,n:integer;s:real;

    begin

     clrscr;

readln(n);

for i:=1 to n do s:=1/(n*(n+2));

write(s:10:2);

readln

end.

2.

uses crt;

    var i,n,s:integer;

    begin

     clrscr;

readln(n);

for i:=1 to 2n do if i mod 2=0 then s:=s+i;

write(s);

readln

end.