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.
uses crt;
var a:array[1..10000]of integer;
i,n,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
uses crt;
var n,t:integer;
{------------------kiem-tra-so-nguyen-to----------------------------}
function ktnt(x:integer):boolean;
var i:integer;
kt:boolean;
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;
{----------------------chuong-trinh-chinh------------------------}
begin
clrscr;
t:=0;
repeat
write('Nhap n='); readln(n);
if (n mod 2=0) then t:=t+n;
until ktnt(n)=false;
writeln(t);
readln;
end.
uses crt;
var n,i,dem,j,t:integer;
kt:boolean;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
begin
kt:=true;
for j:=2 to i-1 do
if i mod j=0 then kt:=false;
if kt=true then
begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln(t);
readln;
end.
program abcdef;
uses Crt;
var
k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;
isPrime, isPalindrome: boolean;
begin
clrscr;
write('Nhap so chu so k (1<=k<=9): ');
readln(k);
lowerLimit := 1;
for i := 1 to k - 1 do
lowerLimit := lowerLimit * 10;
upperLimit := lowerLimit * 10 - 1;
writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');
for i := lowerLimit to upperLimit do
begin
// Kiểm tra số nguyên tố
isPrime := True;
if i < 2 then
isPrime := False
else
for j := 2 to trunc(sqrt(i)) do
if i mod j = 0 then
beginisPrime := False;break;end;
// Kiểm tra số đối xứng
if isPrime then
begin
reversed := 0;
temp := i;
while temp <> 0 dobeginremainder := temp mod 10;
reversed := reversed * 10 + remainder;
temp := temp div 10;
end;
isPalindrome := (i = reversed);
if isPalindrome then
writeln(i);
end;
end;
readln;
end.
uses crt;
var i,n,t,j,kt:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
if n mod i=0 then
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
write(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem,j;
int main()
{
cin>>n;
x=n;
t=0;
while (n>0)
{
t=t+n%10;
n=n/10;
}
cout<<t;
dem=0;
for (i=2; i<=x; i++)
{
bool kt=true;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=false;
if (kt==true) dem++;
}
cout<<dem;
return 0;
}
def kiem_tra_nguyen_to(n):
if n < 2:
return False
for i in range(2, int(n ** 0.5) + 1):
if n % i == 0:
return False
return True
def kiem_tra_nguyen_to_cung_nhau(m, n):
if kiem_tra_nguyen_to(m) and kiem_tra_nguyen_to(n):
return True
return False
M = int(input("Nhập số M: "))
N = int(input("Nhập số N: "))
if kiem_tra_nguyen_to_cung_nhau(M, N):
print("Hai số", M, "và", N, "là hai số nguyên tố cùng nhau.")
else:
print("Hai số", M, "và", N, "không phải là hai số nguyên tố cùng nhau.")
loi nay la sao a
ok bạn sorry về bộ test nha
Trên đề bạn cho test sai rồi. 57 đâu phải là số nguyên tố đâu bạn. Dễ nhìn thấy 5+7=12 chia hết cho 3.Nên trong dãy mới thì không có số 57. Lần sau bạn chú ý cho test đúng bạn nhé.
Program HOC24;
var s,sc,st: string;
a,b: array[1..10000] of string;
c: array[1..10000] of integer;
i,n,k,d2,t,d,d1:longint;
p: integer;
function nt(x: longint): boolean;
var j: longint;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while (j<=trunc(sqrt(x))) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap k='); readln(k);
for i:=1 to 30000 do
if nt(i) then
begin
str(i,sc);
inc(d);
a[d]:=sc;
end;
for i:=1 to d do
begin
inc(d1);
b[d1]:=a[i]+a[i+1];
end;
for i:=1 to d1 do
begin
val(b[i],p);
if nt(p) then begin inc(d2); st:=b[i]; end;
if k=d2 then break;
end;
write(st);
readln
end.
uses crt;
const f='ngtoghep.inp';
var d,n,k,kt1,i,j,x,kt2,u,kt:longint;
st1,st2,st:string;
y:integer;
f1:text;
begin
clrscr;
assign(f1,f); reset(f1);
readln(f1,k);
if k>1 then begin
d:=1;
n:=3;
repeat
repeat
kt:=0;
n:=n+2;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then str(n,st1);
until kt=0;
{----------------------------------------}
repeat
kt:=0;
n:=n+2;
for j:=2 to trunc(sqrt(n)) do
if n mod j=0 then kt:=1;
if kt=0 then str(n,st2);
until kt=0;
{----------------------------------------}
kt:=0;
st:=st1+st2;
val(st,x,y);
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then d:=d+1;
until d=k;
end;
if k=1 then write('so nguyen to ghep thu ',k,' la 23')
else writeln('so nguyen to ghep thu ',k,' la: ',x);
close(f1);
readln;
end.
#include <iostream>
#include <vector>
#include <math.h>
using namespace std;
int a[200000001];
vector<int> b; vector<int> d;
void sang(){
for (int i=2;i<200000000;i++){
a[i]=1;
}
a[0]=a[1]=0;
for (int i=2;i<sqrt(200000000);i++){
if (a[i]){
for (int j=i*i;j<200000000;j+=i) a[j]=0;
}
}
}
bool san(int n)
{
if (n < 2)
return false;
for (int x = 2; x <= sqrt(n); x++)
{
if (n % x == 0)
{
return false;
}
}
return true;
}
int main(int n)
{
sang();
int l;cin>>l;
for (int i=0;i<=200000000;i++){
if(a[i]) b.push_back(i);}
for (int k=0;k<=sqrt(200000000);k+=2){
string g=to_string(b[k])+ to_string(b[k + 1]);
int c=stoll(g);
for (int x=0;x<n;x++){
if(san(c)) d.push_back(c);
}
}
cout<<d[l - 1];
return 0;
}