Question

Viết chương trình pascal tính trung bình cộng của 1;2;3;...;n với n nhập từ bàn phím

(Sử dịng câu lệnh while..do hoặc repeat.. until)

Answer 1

var i,n,tong:integer;

tbc:real;

begin

write('nhap n='); readln(n);

tong:=0; i:=1;

while i<=n do

begin

tong:=tong+i;

i:=i+1;

end;

tbc:=tong/n;

writeln('trung binh cong la:',tbc);

readln

end.

Answer 2

var i,n,tong:integer;

tbc:real;

begin

write('nhap n='); readln(n);

tong:=0; i:=1;

repeat

tong:=tong+i;

i:=i+1;

until i>n;

tbc:=tong/n;

writeln('trung binh cong la:',tbc);

readln

end.