Viết chương trình nhập vào một số nguyên n. Tính tổng của các số nguyên từ 1 đến n
Viết chương trình nhập vào một số nguyên n. Tính tổng của các số nguyên từ 1 đến n
#include <bits/stdc++.h>
using namespace std;
int A,i,n;
int main()
{
cin>>n;
A=0;
For (i=1;i<=n;i++)
{
A=A+i;
}
cout<<"Tong la: "<<A;
Return 0;
}
Câu 1: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số từ 1 đến n.
Câu 2: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số chẵn từ 1 đến n.
Câu 3: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số lẻ từ 1 đến n.
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
. Viết chương trình tính tổng bình phương của n từ 1 đến 30. In kết quả ra màn hình.
Viết chương trình nhập vào một số nguyên rồi in ra màn hình tất cả các ước số của số đó.
2:
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (n%i==0) cout<<i<<" ";
return 0;
}
Viết chương trình nhập vào N số nguyên dương tính tổng các số lẻ từ 0 đến N
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 2 = 1 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Câu 1 : Viết chương trình ( tính tổng các số nguyên tử từ 1 đến 100. Câu 2: Viết chương trình V tính n!(n là số nguyên nhập từ bàn phím)?
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Bài 3:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).
a) In ra các số chẵn từ 0 đến n
b) In ra các số lẽ từ 1 đến n
c) Tính tổng các số chẵn từ 0 đến n
d) Tính tổng các số lẻ từ 1 đến n
Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 5 = 0 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.