Program NN; Uses crt; Var n,i,s,d: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; d:=0; For i:=1 to n do If i mod 2 = 0 then Begin inc(d); s:=s+i; End; Write(s/d:0:2); Readln End.
uses crt; var n,i,s,d:longint; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do if i mod 2=0 then begin inc(s,i); inc(d); end; writeln('Trung binh cong: ',s/d:0:2); readln end.
