uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr((2*i-1));
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Các câu hỏi tương tự
viết chương trình pascal tính tổng sau :
s= 1 + 1/2+1/3+1/4+...+1/100
Viết chương trình tính S=1+2_+100 của chương trình pascal
viết chương trình pascal tổng của 60 số tự nhiên đầu tiên. S = 1 + 2 + ...+ 60
Viết chương trình pascal tính tổng A=1-2+3-4+...+((-1)^n+1)*n
Xem chi tiết
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
viết chương trình pascal sử dụng câu lệnh lặp while do để tính tổng s=1+1/2^2+1/3^2+...+1/n^2,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình yêu cầu đưa ra 4 dấu cách và 2 chữ số thập phân sau dấu phẩy
Câu 1: Viết chương trình tính tổng dãy số sau: S=12+22+...+n2.
Câu 2: Viết chương trình tính tổng nghịch đảo N số nguyên đầu tiên.
Câu 14: (3,0 điểm) Em hãy sử dụng câu lệnh lặp với số lần biết trước viết chương trinh Pascal để giải bài toán sau: Tính tổng S= 1 + 2 + 3 +...+n
cho 2 dãy bất kì viết chương trình tính tổng 2 dãy đó ( pascal)