Program HOC24;
var s: integer;
i: byte;
begin
s:=0;
for i:=1 to 200 do s:=s+i;
write('S=',s);
readln
end.
Đúng 1
Bình luận (0)
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
Viết chương trình tính tổng sau S=1-2+3-4.....-n
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
Hãy viết chương trình tính tổng các số chẵn từ 1 đến 200
viết chương trình tính tổng
s= 1*2/3*4+2*3/4*5+3*4/5*6+...+n*(n+1)/(n+2)*(n+3)
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
Mô tả thuật toán và viết chương trình tính tổng: S= 2/3+4/5+6/7+...+ 2n/2n+1
viết chương trình tính tổng s=1+1/3+1/5+....+1/2n-1 bằng câu lệnh for do và while do
viết chương trình tính tổng các bình phương của n số tự nhiên S=1^2+2^2+...n^2
Viết chương trình tính tổng : S1 = 1+3+5+7+...+N S2 = 2+4+6+8+...+N S3 = 1-2+3-4+...+N Viết chương trình tính tích : P1 = 1×3×5×7×...× N P2 = 2×4×6×8×...×N