uses crt; var i, n, s, d : integer; begin clrscr; write('nhap so n : ');readln(n); s := 0; d := 0; for i := 1 to n do if i mod 2 <> 0 then begin s := s + i; d := d + 1; end; writeln('tb = ', s / d); readln end.
uses crt; var n,i,s,d:longint; begin clrscr; write('Nhap n: '); read(n); for i:=1 to n do if i mod 2=1 then begin inc(s,i); inc(d); end; writeln('TBC: ',s/d:0:2); readln end.
