1. Viết chương trình tính tổng từ 1 đến 100. 2. Viết chương trình tính tích từ 1 đến 50 3. Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/n 4.
1. Viết chương trình tính tổng từ 1 đến 100. 2. Viết chương trình tính tích từ 1 đến 50 3. Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/n 4. Viết chương trình tính dãy số thập phân từ 1+1/3+1/5+1/7+1/9 5. Viết chương trình tính dãy số thập phân từ 1+1/2+1/4+1/6+1/8. 6. Nhập vào 1 số nguyên n . In ra tổng các số từ 1 - n 7. Tính tổng các số chẵn từ 1 đến n, với n được nhập từ bàn phím 8. Ta kí hiệu n! là tích n số tự nhiên đầu tiên: n! = 1.2.3...n. Viết chương trình tính n! với n là số tự nhiên được nhập vào từ bàn phím. 9.Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n, m là các số nguyên dương nhập vào từ bàn phím. 10.Viết chương trình tính tổng bình phương các số tự nhiên từ 1 đến n, biết giá trị của n được nhập vào từ bàn phím 11. Viết chương trình xuất ra các bội số của B trong phạm vi từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
Lời giải 1 :
1.
program b1;
uses crt;
var S:integer;
i:integer;
begin clrscr;
S:=0;
for i:=1 to 100 do
S:=S+i;
write('Tong tu 1 den 100 la: ',S);
readln;
end.
2.
program b2;
uses crt;
var T:integer;
i:integer;
begin clrscr;
T:=1;
for i:=1 to 50 do
T:=T*i;
write('Tich tu 1 den 50 la: ',T);
readln;
end.
3.
program b3;
uses crt;
var S:integer;
i,n:integer;
begin clrscr;
writeln('Nhap 1 so n: '); readln(n);
S:=0
for i:=1 to n do
S:=S+1/i;
write('Tong day so la: ',S);
readln;
end.
4.
program b4;
uses crt;
var S:integer;
i:integer;
begin clrscr;
S:=0
for i:=1 to 9 do
if i mod 2<>0 then
S:=S+1/i;
write('Tong day so la: ',S);
readln;
end.
5.
program b5;
uses crt;
var S:integer;
i:integer;
begin clrscr;
S:=0
for i:=1 to 8 do
if i mod 2=0 then
S:=S+1/i;
write('Tong day so la: ',S);
readln;
end.
6.
program b6;
uses crt;
var S:integer;
i,n:integer;
begin clrscr;
writeln('Nhap 1 so n: '); readln(n);
S:=0;
for i:=1 to n do
S:=S+i;
write('Tong la: ',S);
readln;
end.
7.
program b7;
uses crt;
var S:integer;
i,n:integer;
begin clrscr;
writeln('Nhap 1 so n: '); readln(n);
S:=0;
for i:=1 to n do
if i mod 2=0 then
S:=S+i;
write('Tong la: ',S);
readln;
end.
8.
program b8;
uses crt;
var T:integer;
i,n:integer;
begin clrscr;
writeln('Nhap 1 so n: '); readln(n);
T:=1;
for i:=1 to n do
T:=T*i;
write('n! la: ',T);
readln;
end.
9.
program b9;
uses crt;
var S:integer;
i,n,m:integer;
begin clrscr;
writeln('Nhap n va m: '); readln(n,m);
S:=0;
for i:=n to m do
S:=S+i;
write('Tong la: ',S);
readln;
end.
10.
program b10;
uses crt;
var S:integer;
i,n:integer;
begin clrscr;
writeln('Nhap 1 so n: '); readln(n);
S:=0;
for i:=1 to n do
S:=S+i*i;
write('Tong la: ',S);
readln;
end.
11.
program b11;
uses crt;
var b:integer;
i,n,B:integer;
begin clrscr;
writeln('Nhap so n va B: '); readln(n,B);
b:=0;
for i:=B to n do
if i mod B=0 then
write('Boi cua B la: ',b);
readln;
end.
Học tốt!
Thảo luận
Lời giải 2 :
1.
#include <iostream>
using namespace std;
int main() {
int s=0;
for(int i=1;i<=500;i++){
s+=i;
}
cout<<s;
//samon247
return 0;
}
2.
#include <iostream>
using namespace std;
int main(){
double s=1;
for(double i=1;i<=50;i++){
s*=i;
}
cout<<s;
//samon247
return 0;
}
3.
#include <iostream>
using namespace std;
int main(){
float n,s=0;
cin>>n;
for(float i=1;i<=n;i++){
s+=1/i;
}
cout<<s;
//samon247
return 0;
}
4.
#include <iostream>
using namespace std;
int main(){
float s=0;
for(float i=1;i<=9;i++){
if((int)i%2==1){
s+=1/i;
}
}
cout<<s;
//samon247
return 0;
}
5.
#include <iostream>
using namespace std;
int main(){
float s=0;
for(float i=1;i<=9;i++){
if((int)i%2==0){
s+=1/i;
}
}
cout<<s;
//samon247
return 0;
}
6.
#include <iostream>
using namespace std;
int main() {
int n,S=0;
cin>>n;
for(float i=1;i<n;i++){
S+=i;
}
cout<<S;
//samon247
return 0;
}
7.
#include <iostream>
using namespace std;
int main() {
int n,S=0;
cin>>n;
for(float i=1;i<n;i++){
if((int)i%2==0){
S+=i;
}
}
cout<<S;
//samon247
return 0;
}
8.
#include <iostream>
using namespace std;
int main() {
int s=1,n;
cin>>n;
for(int i=1;i<=n;i++){
s*=i;
}
cout<<s;
//samon247
return 0;
}
9.
#include <iostream>
using namespace std;
int main() {
int s=0,m,n;
cin>>m>>n;
for(;m<=n;m++){
s+=m;
}
cout<<s;
//samon247
return 0;
}
10.
#include <iostream>
using namespace std;
int main() {
int s=0,n;
cin>>n;
for(int i=1;i<=n;i++){
s+=i*i;
}
cout<<s;
//samon247
return 0;
}
11.
#include <iostream>
using namespace std;
int main() {
int B,n;
cin>>B>>n;
for(int i=1;i<=n;i++){
if(i%B==0){
cout<<i<<" ";
}
}
//samon247
return 0;
}
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK