uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=500 do
begin
inc(n);
s:=s+n;
end;
writeln(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
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
Tính tổng của S= 1+2+3+..+n sao cho tổng S nhỏ nhất lớn hơn 500
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ố
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 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 )
các bn giups mik vs mik sắp thi rồi!!!!
Viết ct nhập số nguyên dương N từ bn phím (N<10^9).Hãy inra só nguyên lớn nhất nhỏ hơn N có tổng các chữ số bằng 10
VD:N=200 ==>190
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ất3. 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
Đọc tiếp
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 tìm số tự nhiên n sao cho tổng các số tự nhiên liên tiếp từ 1 đến n là tổng lớn nhất nhỏ hơn 500