uses crt;
var s,i:longint;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
writeln(' S=', s);
readln;
end.
program chuongtrinh;
uses crt;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
write (' Tong s= ',s);
readln;
end.
uses crt;
var s,i:longint;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
writeln(' S=', s);
readln;
end.
program chuongtrinh;
uses crt;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
write (' Tong s= ',s);
readln;
end.
Mô tả thuật toán viết chương trình tính S
a, S = 12 + 22 + ....+ 99 2 + 1002
b, S = 1 + 3 + 5 + .... + 99
c, S = 12 - 22 + 32 - ....- 99 2 + 1002
d, S = 1 - 2 + 3 - .... + 100
e, S = 2016 + 1/2 + 1/3 + .... + 1/x
Sử dụng vòng lặp for...dovà while...do viết chươnmg trình
a. Tính tổng S = 1+2+3+...+100
b. Tính tổng S +1+1/2+1/3+...+1/10
C. Tính tổng S=1+2+3+..n ( n nhập từ bàn phím)
d. Tính tổng S= 1+1/2+1/3....+1/n ( n nhập từ bàn phím)
viet chung trinh pascal s=1+2...+n, s sao cho s>100 hoi khi do s=?
1.
For I = 2 to 12 Do write ('O'), câu lệnh in ra bao nhiêu chữ O?
2.
For I = 1 to 20 Do If (...) Then write (I,'');
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I = 1 to 100 Do S:=......
... cần điền?
4.
S;=0; For I:=4 to 12 Do If (I mod 12=1) Then S:=S +I;
giá trị của S?
5.
S;=0; For I:=1 to 5 Do S:=S +I;
giá trị của S?
6.
For I = 1 to 10 Do If (I mod 3 = 0) Then write (I,'');
kết quả?
7.
a:= 354 If (a mod 3 = 0) them write (a mod 3) Else Write (a Div 3);
kết quả?
8.
để in ra màn hình 20 chữ C cần thực hiện?
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ố nhỏ nhất lớn hơn 100, biết S= 1+2+3+...+n và khi đó cho biết n bằng bao nhiêu ?
Hãy hoàn thiện chương trinh tính tổng 100 để số tự nhiên đầu tiên:
…User crt;……S:=0;For … doS:=…Writeln (‘Gia tri cua tong S=’, s);Readln;…