Tính trung bình cộng các số từ 1 - N giúp mình với ạ tks nhiều.
2 câu trả lời
uses crt;
var n: longint;
begin
clrscr;
readln(n);
writeln((n * (n + 1) div 2) div n);
readln;
end.
Program baitap;
Uses crt;
Var N,i,S:integer;
Begin
Clrscr;
Write('N='); Readln(N);
S:=0;
For i:=1 to N do S:=S+i;
Writeln('Trung binh cong:', S/N:9:2);
Readln
End.
