viết chương trình nhập vào 1 số nguyên N . In ra màn hình cho biết N có phải là số nguyên tố hay không ?
Sử dụng Python để Viết chương trình cho người dùng nhập vào số nguyên dương n, rồi kiểm tra các số nhập vào có phải là số nguyên tố hay không? Và đếm xem có bao nhiêu số nguyên tố được nhập vào thì in ra màn hình.
a.Viết chương trình nhập vào 1 số nguyên n in ra màn hình các số chẵn in ra từ 1 đến n b.Viết chương trình nhập 1 dãy số nguyên n phần tử kiểm tra xem n có phải số nguyên tố hay không
c.Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử in ra màn hình các số chia hết cho 2
d. Viết chương trình 1 dãy số nguyên gồm n phần tử in ra màn hình số nhỏ nhất có trong dãy.
c:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
d:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=1; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
1Cho số nguyên dương N ,đếm số cách phân tích N thành tổng hai số nguyên tố .
2 Viết chương trình nhập vào số nguyên dương N.
a) Xuất ra màn hình N có phải là số nguyên tố đối xứng hay không.
b) Thông báo ra màn hình số nguyên tố đối xứng nhỏ nhất lớn hơn N.
mong các bạn giúp mình với ạ.
Câu 1:
uses crt;
var n,i,dem,j,kt1,kt2,a,b,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
if n mod 2=1 then
begin
a:=2;
b:=n-a;
kt:=0;
for i:=2 to trunc(sqrt(b)) do
if b mod i=0 then kt:=1;
if kt=0 then inc(dem);
end
else begin
for i:=2 to n div 2 do
begin
a:=i;
b:=n-i;
kt1:=0;
kt2:=0;
for j:=2 to trunc(sqrt(a)) do
if a mod j=0 then kt1:=1;
for j:=2 to trunc(sqrt(b)) do
if b mod j=0 then kt2:=1;
if (kt1=0) and (kt2=0) then inc(dem);
end;
end;
writeln('So cach phan tich ',n,' thanh tong hai so nguyen to la: ',dem);
readln;
end.
Câu 2:
uses crt;
var n,x:integer;
{-----------------ham-kiem-tra-nguyen-to-----------------}
function ktnt(x:integer):boolean;
var kt:boolean;
i:integer;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{---------------ham-kiem-tra-so-doi-xung---------------}
function ktdx(x:integer):boolean;
var kt:boolean;
d,i:integer;
st:string;
begin
str(x,st);
d:=length(st);
kt:=true;
for i:=1 to d do
if st[i]<>st[d-i+1] then
begin
kt:=false;
break;
end;
if kt=true then ktdx:=true
else ktdx:=false;
end;
{--------------chuong-trinh-chinh---------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if (ktnt(n)=true) and (ktdx(n)=true) then writeln(n,' la so nguyen to doi xung')
else writeln(n,' khong la so nguyen to doi xung');
x:=n+1;
repeat
x:=x+1;
until (ktnt(x)=true) and (ktdx(x)=true);
writeln('So nguyen to doi xung nho nhat lon hon ',n,' la: ',x);
readln;
end.
bài 1;
const
fi='phantich.inp'
fo='phantich.out'
var f,g:text;i,n,d:longint;
function nt(n:longint):boolean;
var i:longint;
begin
if (n<2) then exit (false);
for i:=2 to trunc(sqrt(n)) do
if (n mod i=0) then exit (false);
exit (true);
end;
begin
assign(f,fi);reset(f);
assign(g,fo);rewrite(g);
readln(f,n);
d:=0;
for i:=1 to n div 2 do
if nt(i) and nt(n-i) then inc(d);
writeln(g,'co ',d,' cach phan tich');
close(f);close(g);
end.
bài 2:
const
fi='primenumber.inp'
fo='primenumber.out'
var f,g:text;n:longint;
function nt(n:longint):boolean;
var i:longint;
begin
if (n<2) then exit (false);
for i:=2 to trunc(sqrt(n)) do
if (n mod i=0) then exit (false);
exit (true);
end;
function check(n:longint):boolean;
var s,m:longint;
begin
s:=0;m:=n;
while (n>0) do
begin
s:=s*10+(n mod 10);
n:=n div 10;
end;
if (s=m) and (nt(s)=true) then exit (true);
exit (false);
end;
begin
assign(f,fi);reset(f);
assign(g,fo);rewrite(g);
readln(f,n);
if check(n) then writeln(g,'la so nguyen to doi xung') else
writeln(g,'khong la so nguyen to doi xung');
repeat
inc(n);
until (check(n)=true);
writeln(g,'so do la : ',n);
close(f);close(g);
end.
Viết chương trình nhập một số nguyên n từ bàn phím in ra màn hình kết quả a.số n đã nhập có phải là một số dương hay không b.số n đã nhập có phải số lẻ chia hết cho 3 hay không
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n>0 then writeln(n,' la so duong')
else writeln('ko la so duong');
if (n mod 2=1) and (n mod 3=0) then writeln('n la so le chia het cho 3')
else writeln('n ko la so le chia het cho 3');
readln;
end.
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;
}
Viết chương trình nhập vào dãy gồm n phần tử (n<15). Sau đó in ra màn hình giá trị các phần tử đó và cho biết có bao nhiêu phần tử có giá trị là số nguyên tố , in ra màn hình các số nguyên tố đó.
viết chương trình nhập vào N.Với 0<N<10
+in ra bang cửu chương N + cho biết N là số chẵn hay lẻ ? +Kiểm tra N có phải số nguyên tố hay koprogram BangCuuChuong;
var
N, i, j: integer;
IsEven: boolean;
IsPrime: boolean;
begin
write('Nhap N (0 < N < 10): ');
readln(N);
// Kiểm tra N có phải số chẵn hay lẻ
IsEven := (N mod 2 = 0);
if IsEven then
writeln(N, ' la so chan')
else
writeln(N, ' la so le');
// Kiểm tra N có phải số nguyên tố hay không
IsPrime := true;
if (N < 2) then
IsPrime := false
else
for i := 2 to trunc(sqrt(N)) do
if (N mod i = 0) then
begin
IsPrime := false;
break;
end;
if IsPrime then
writeln(N, ' la so nguyen to')
else
writeln(N, ' khong la so nguyen to');
// In ra bảng cửu chương N
writeln('Bang cuu chuong ', N, ':');
for i := 1 to 10 do
begin
j := i * N;
writeln(N, ' x ', i, ' = ', j);
end;
readln;
end.
Mấy cái phần mình gạch // là giải thích phần code đó làm gì nha.
Program HOC24;
var i,n,d: byte;
begin
write('Nhap N: '); readln(n);
writeln('Bang cuu chuong ',n,' : ');
for i:=1 to 10 do writeln(n,' x ',i,' = ',n*i);
if n mod 2=0 then writeln(n,' la so chan ') else writeln(n,' la so le');
d:=0;
for i:=1 to n do if n mod i=0 then d:=d+1;
if d=2 then write(n,' la so nguyen to') else write(n,' khong phai la so nguyen to');
readln
end.
giúp mk vs mn.KO DÙNG C+
Viết chương trình nhập số tự nhiên n<m(1<n<m<100000).In ra màn hình.
1.Kiểm tra số n có phải là số nguyên tố hay ko.
2.Đếm,tính tổng và in ra các số nguyên tố <n.
3.Đếm,tính tổng và in ra các số nguyên tố <m và >n.
4.In ra m số nguyên tố đầu tiên.
uses crt;
var n,m,i,dem,t,t1,d1:integer;
//chuongtrinhcon
function ktnt(var n:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if (kt=true) then ktnt:=true
else ktnt:=false;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n,m);
if (ktnt(n)=true) then writeln(n,' la so nguyen to')
else writeln(n,' ko la so nguyen to');
dem:=0;
t:=0;
for i:=2 to n do
if (ktnt(i)=true) then
begin
write(i:4);
t:=t+i;
dem:=dem+1;
end;
writeln;
writeln(t,' ',dem);
t1:=0;
d1:=0;
for i:=n to m do
if ktnt(i)=true then
begin
write(i:4);
t1:=t1+i;
inc(d1);
end;
writeln;
writeln(t1,' ',d1);
readln;
end.