program TongN;
var
n, i, sum: integer;
begin
writeln('Nhap vao so n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
writeln('Tong S = ', sum);
readln;
end.
Câu 1: tính tổng s:=1+2+3..+n
Câu 2: Tính tổng s:=1+1/2+1/3+…+1/n
Câu 2: (2,0 điểm) TÍNH TỔNG
Cho tổng S = 1^2 + 3^2 + 5^2 + ... + (2n – 1)^2 với 𝑛 ∈ 𝑁.
Yêu cầu: Tính tổng S.
Dữ liệu vào: Nhập từ bàn phím số tự nhiên N (0 <n<=10000)
Kết quả: In kết quả tính được của tổng S ra màn hình.
NHẬP N TÍNH TỔNG S= 1/2+1/3+1/4+....+1/N BẰNG CÂU LỆNH WHILE..DO
Viết chương trình tính tổng sau: S=1+2+3+...+n. Sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).
để tính tổng S=1+2+3+4....+n;
em hãy chọn đoạn lệnh S:=0 và ?
Viết ctrinh dưới đây bằng ngôn ngữ lập trình pascal? a)Tính tổng các số lẻ trong phạm vi từ 1 đến N(S=1+3+5+7...+N) b)Tính tổng các số chẵn trong phạm vi từ 1 đến N(S=2+4+6+8...+N c)Tính tích các số chẵn trong phạm vi từ 1 đến N(P=2.4.6...N) d)Tính tích các số lẻ trong phạm vi từ 1 đến N(P=1.3.5...N)
viết chương trình nhập n từ bàn phím .TÍnh tổng biểu thức sau S=1^2+2^2+3^2+...+N^2
Viết chương trình tính tổng
S=1+1/2+1/3+....+1/n
Với n là số nguyên được nhập từ bàn phím.
