program tinh_tong;
var i:integer;
tong:real;
begin
tong:=0;
for i:=3 to 20 do tong:=tong+i/2;
writeln('tong la:',tong:2:1);
readln
end.
program tinh_tong;
var i:integer;
tong:real;
begin
tong:=0;
for i:=3 to 20 do tong:=tong+i/2;
writeln('tong la:',tong:2:1);
readln
end.
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Viết chương trình tính tổng s=2+4+...+12
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
Viết chương trình pascal thực hiện tính toán các biểu thức sau:
a) 7.(8 + 5 -2)-30+12
b)(15+5)^2.(6+4)^3
(Mình đg cần mong mn giúp, thanks ạ)
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
1.Viết chương trình các biểu thức sau: (20×4)-100 div (10 mod 5) 2. Căn của 60 : căn của 6
cho số tự nhiên N(1 N<10^6). Tính tổng sau : S= 1-2+3-4+5-6...+N
viết chương trình ra giúp vs
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 2: Hãy viết chương trình tính tổng các số nguyên tố trong khoảng từ 1 đến 50
a, Xác định bài toán
b, Mô tả thuật toán
c, Viết chương trình