Viết chương trình Nhập số nguyên N Tính trung bình cộng các số từ 1 đến N và xuất kết quả ra màn hình

2 câu trả lời

uses crt;
var f:text; i,s,n:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do s:=s+i; 
   writeln('Trung binh cong: ',s / n:0:2);
readln
end.

uses crt;
var n,i,s:longint;
begin
clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do inc(s,i);
   writeln('TBC: ',s/n:0:2);
readln
end.