uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
i:=1;
while i<=n do
begin
t:=t+a[i];
inc(i);
end;
writeln(t/n:4:2);
readln;
end.
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 4: Cho S = 12 + 22 + 32 + … + n2, với n là một số tự nhiên nhập từ bàn phím. Hãy viết chương trình sử dụng lệnh lặp While…do để tính tổng trên?
: Viết chương trình Pascal sử dụng lệnh lặp While..Do tính tổng các số chẵn của số tự nhiên N (100<n<32000) với N được nhập từ bàn phím. Vẽ sơ đồ biểu diễn hoạt động của chương trình trên.
Ví dụ:
Input: Output:
123 2
6616 18
10246 12
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.
viết chương trình sử dụng câu lệnh lặp while...do hoặc for to do để tính tổng s=2+4+6...+n,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình
sử dụng câu lệnh while do viết chương trình tính tổng biết n>2 và được nhập từ bàn phím. t=2+ 3 + 4 +...+n
