Hệ sinh thái số IELP
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Hệ sinh thái số IELP

Học lập trình với Hệ sinh thái số IELP
 
Trang ChínhTrang Chính  CalendarCalendar  Latest imagesLatest images  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Keywords
HOAI phương Trần Minh sach tổng wavio sinh đặng Phạm Hoàng điểm BANG hình được chứa thưởng nguyễn giác pháp Thành Nhàn nhật tích Phần 2022
Latest topics
» Buổi học số 1. Cấu trúc tuần tự trong C++ (Bài 1 -> Bài 15)
KTLT 9)	SỐ ĐẸP 2 EmptyThu Apr 25, 2024 10:49 am by quanle1120

» Chấm bài trực tuyến với Jusolan.ddns.net
KTLT 9)	SỐ ĐẸP 2 EmptyWed Apr 24, 2024 9:15 pm by Admin

» Bài kiểm tra giữa Học kỳ II
KTLT 9)	SỐ ĐẸP 2 EmptyWed Apr 05, 2023 8:00 am by Nguyễn Đức Mạnh

» Bài giữa kì 2
KTLT 9)	SỐ ĐẸP 2 EmptyMon Apr 03, 2023 8:34 am by Khách viếng thăm

» Bài giữa kì tin Lê Đức Anh
KTLT 9)	SỐ ĐẸP 2 EmptySun Apr 02, 2023 8:33 pm by Tendalda06

» Nghiêm Tuấn Tú
KTLT 9)	SỐ ĐẸP 2 EmptySat Apr 01, 2023 9:03 am by Nghiêm Tuấn Tú

» Nguyễn Trần Ý Nhi
KTLT 9)	SỐ ĐẸP 2 EmptySat Apr 01, 2023 8:23 am by Nguyễn Trần Ý Nhi

» Nguyễn Kim Anh
KTLT 9)	SỐ ĐẸP 2 EmptySat Apr 01, 2023 12:05 am by Khách viếng thăm

» Trần Thanh Trà
KTLT 9)	SỐ ĐẸP 2 EmptyFri Mar 31, 2023 11:10 pm by Trần Thanh Trà

April 2024
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
2930     
CalendarCalendar
Top posting users this week
Admin
KTLT 9)	SỐ ĐẸP 2 Vote_lcapKTLT 9)	SỐ ĐẸP 2 I_voting_barKTLT 9)	SỐ ĐẸP 2 Vote_rcap 
quanle1120
KTLT 9)	SỐ ĐẸP 2 Vote_lcapKTLT 9)	SỐ ĐẸP 2 I_voting_barKTLT 9)	SỐ ĐẸP 2 Vote_rcap 

 

 KTLT 9) SỐ ĐẸP 2

Go down 
+2
hahung413
Admin
6 posters
Tác giảThông điệp
Admin
Admin



Tổng số bài gửi : 152
Join date : 23/04/2022
Age : 41
Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptyTue May 10, 2022 4:44 pm

9) SỐ ĐẸP 2
Một số được gọi là đẹp nếu tổng bình phương các chữ số của nó (trong dạng biểu diễn thập phân) là một số nguyên tố. Ví dụ, 12 là một số đẹp vì 12+22 = 5 – số nguyên tố.
Các số đẹp được đánh số theo thứ tự tăng dần của giá trị, bắt đầu từ 1 trở đi.
Yêu cầu: Cho số nguyên n (1 ≤ n ≤ 10 000). Hãy tìm số đẹp thứ n.
Dữ liệu: Vào từ file văn bản BEAUTY2.INP, gồm nhiều tests, mỗi test cho trên một dòng chứa một số nguyên n.
Kết quả: Đưa ra file văn bản BEAUTY2.OUT, kết quả mỗi test đưa ra trên một dòng.
Ví dụ:
BEAUTY2.INP
1
2
6
BEAUTY2.OUT
11
12
23
Về Đầu Trang Go down
https://ielp.forumvi.com
hahung413




Tổng số bài gửi : 16
Join date : 10/05/2022

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptyThu May 12, 2022 3:18 pm

Code:
#include <bits/stdc++.h>

#define maxc 100001
using namespace std;

int dem,n;

int a[maxc],c[maxc];

bool b[maxc];

void sang()
{
    memset(b,true,sizeof(b));
    b[1] = false;
    for(int i =1; i <= 10000; i++)
    {
        int j = 2;
        if(b[i])
        while(i*j <= 10000)
            {
                b[i*j] = false;
                j++;
            }
    }

}
void sinh()
{
    for(int i =1; i <=10000; i++)
        c[i] = c[i/10] + (i % 10)*(i % 10);
}
void nhap()
{
    cin>>n;
}
void sol()
{
    sang();
    sinh();
    for(int i =1; i <= 10000; i++)
        if(b[c[i]])
            a[++dem] = i;
        cout<<a[n];
}
int main()
{
      ios_base::sync_with_stdio(0);
      nhap();
      sol();
}

Admin likes this post

Về Đầu Trang Go down
Admin
Admin



Tổng số bài gửi : 152
Join date : 23/04/2022
Age : 41
Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptyThu May 12, 2022 4:44 pm

- Tổ chức các hàm:
tongbp (u) - tính tổng bình phương các chữ số của u;
ngto(u) - kiểm tra u có là nguyên tố.
Hàm kiemtra(u) - kiểm tra u là số đẹp.
Hàm tìm sodepn(u) - trả về số đẹp thứ u.
- Tìm Tmax là giá trị lớn nhất của input.
- Gọi hàm tìm sodepn(Tmax) thu được mảng a có Tmax phần tử.
Với mỗi T[i] thì đưa a[t[i]].
Về Đầu Trang Go down
https://ielp.forumvi.com
dobinhminh01




Tổng số bài gửi : 14
Join date : 10/05/2022

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptySat May 14, 2022 5:26 pm

Code:
#include <bits/stdc++.h>

using namespace std;
bool ngto[10000];
int test=1,n,sum=0,coun;
void sangnt()
{
    memset(ngto,true,sizeof(ngto));
    ngto[0] = 0;
    ngto[1] = 0;
    for (int i=2; i<=10000; i++)
        if (ngto[i] == 1)
            for (int j=2*i; j<=10000; j+=i)
                ngto[j] = 0;
}

int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    freopen("BEAUTY2.INP","r",stdin);
    freopen("BEAUTY2.OUT","w",stdout);
    sangnt();
    while(cin >> n){
        while(true){
            int temp=test,sum=0;
            while(temp > 0){
                sum+=(temp%10)*(temp%10);
                temp/=10;
            }
            if( ngto[sum] == 1 ){
                coun++;
                if(coun == n){
                    cout << test;
                    return 0;
                }
            }
            test++;
        }
    }
    return 0;
}
Về Đầu Trang Go down
hdluong




Tổng số bài gửi : 19
Join date : 09/05/2022

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptySun May 15, 2022 3:09 pm

Code:

#include <iostream>
#include <fstream>
#include <math.h>
using namespace std;
int rmax,c[10000],a[10000],n=0;
bool nt(int u)
{
    if (u<=1) return false;
    if (u<=3) return true;
    if (u % 2==0) return false;
    for (int i=3;i<=sqrt(u);i+=2)
        if (u%i==0) return false;
    return true;

}
bool kt(int u)
{
    int t=0;
    while (u>0)
    {
        if (u<10)
        {
            t=t+(u%10)*(u%10);
            break;
        }
        t=t+(u%10)*(u%10);
        u=u / 10;
    }
    if (nt(t)) return true; else return false;
}
void xuli()
{

    ifstream ip("beauty2.inp");
    ofstream op("beauty2.out");
    rmax=0;;
    while (!ip.eof())
    {
        n++;
        ip >> a[n];
        rmax=max(rmax,a[n]);
    }
    int i=0;
    int j=0;
    while (i<=rmax)
    {
        j++;
        if (kt(j)==true)
        {
            i++;
            c[i]=j;
        }
    }
    for (int i=1;i<=n;i++) op << c[a[i]] << endl ;
}
int main()
{
    xuli();
    return 0;
}
Về Đầu Trang Go down
meliodasssf




Tổng số bài gửi : 71
Join date : 10/05/2022

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptyMon May 16, 2022 10:03 pm

Code:

/*Meliodasssf*/

#include<bits/stdc++.h>
using namespace std;
#define forl(i,a,b) for (int i=a; i<=b; i++)
#define forr(i,a,b) for (int i=a; i>=b; i--)
#define max3(a,b,c) max(a,max(b,c))
#define min3(a,b,c) min(a,min(b,c))

int n,A[10001],maxx,ans[10001],test=0;

void nhap()
{
    cin >> n;
    forl (i,1,n)
    {
        cin >> A[i];
        maxx = max(maxx,A[i]);
    }
}


bool NT[10001];
void sang()
{
    memset(NT,true,sizeof(NT));
    NT[0] = NT[1] = false;
    forl (i,2,10000)
        if (NT[i] == true)
            for (int j=i*2; j<=10000; j+=i)
                NT[j] = false;
}

int sum(int x)
{
    int temp=0;
    while (x > 0)
    {
        temp += (x%10) * (x%10);
        x /= 10;
    }
    return temp;
}

int main ()
{
    ios_base::sync_with_stdio(0); cin.tie(0); cout.tie(0);
    // freopen ("in.txt","r",stdin);
    // freopen ("out.txt","w",stdout);
    nhap(); sang();

    int temp=0;
    while (test < maxx)
    {
        temp++;
        if (NT[sum(temp)] == true)
            ans[++test] = temp;
    }

    forl (i,1,n) cout << ans[A[i]] << "\n";
    return 0;
}
Về Đầu Trang Go down
vhdlinh




Tổng số bài gửi : 34
Join date : 08/05/2022

KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 EmptyTue May 17, 2022 1:56 am

#include<bits/stdc++.h>
#define nmax 10007

using namespace std;

bool check1[nmax];

void prime(){
memset(check1, 1, sizeof(check1));
for(int i = 2; i <= nmax; i++) if(check1[i] == 1)
for(int j = 2*i; j <= nmax; j += i) check1[j] = 0;
}

bool check2(int n){
int s = 0;
while(n > 0){
s += (n%10)*(n%10);
}
if(check1[s]) return true;
else return false;
}

int main(){
ios_base::sync_with_stdio(0);
cin.tie(0);
freopen("BEAUTY.inp", "r", stdin);
freopen("BEAUTY.out", "w", stdout);
prime();
vector<int> f;
for(int i = 1; i <= nmax; i++){
if(check2(i)) f.push_back(i);
}
sort(f.begin(), f.end());
int x;
while(cin >> x) cout << f[x] << '\n';
return 0;
}
Về Đầu Trang Go down
Sponsored content





KTLT 9)	SỐ ĐẸP 2 Empty
Bài gửiTiêu đề: Re: KTLT 9) SỐ ĐẸP 2   KTLT 9)	SỐ ĐẸP 2 Empty

Về Đầu Trang Go down
 
KTLT 9) SỐ ĐẸP 2
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» KTLT 8) SỐ ĐẸP
» KTLT 6) Tìm ước nguyên tố
» KTLT 7) SỐ NGHỊCH THẾ
» KTLT 10) TÍCH CÁC CHỮ SỐ
» KTLT 5. Tổng 4 số nguyên tố

Permissions in this forum:Bạn không có quyền trả lời bài viết
Hệ sinh thái số IELP :: Thực nghiệm phần C++ :: 8-Kỹ thuật lập trình-
Chuyển đến