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 ?
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
30 tháng 4 2022
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;
}
14 tháng 1 2021
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.
31 tháng 12 2022
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.
8 tháng 3 2022
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;
}
20 tháng 3 2023
program 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.
ML
20 tháng 3 2023
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.
24 tháng 2 2022
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.
Var i,n,dem:integer;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
if n mod i = 0 then dem:=dem+1;
if dem=2 then write(n,' la so nguyen to')
else write(n,' khong la so nguyen to');
readln;
end.