var S,i.n:integer;
begin
write('nhap n='); readln(n);
S:=0; i:=3;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln('tong la:',S);
readln
end.
Đúng 0
Bình luận (0)
Lập trình đơn giản
Các câu hỏi tương tự
Viết chương trình tính tổng S = 1+2+3+...+1/n. Trong đó n là số nguyên được nhập từ bàn phím
nhập 2 số nguyên a b từ bàn phím viết chương trình tính tổng S của 2 số a b để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào
viết chương trình tính tổng :S = 5+10 +15+...+n. trong đó số nguyên nhập từ bàn phím
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 tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
1Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)2Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 203Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20
Xem chi tiết
Em hãy viết chương trình tính tổng các số chẵn từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
Em hãy viết chương trình tính tổng các số lẻ từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên A. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)?