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.