Một số được gọi là số đẹp nếu tổng bình phương các chữ số của nó là một số nguyên tố. Các số đẹp được đánh số theo thứ tự tăng dần của giá trị từ 1 trở đi. Cho sô nguyên n tìm số đẹp thứ n. Viết chương trình sử dụng chương trình con.

nhunht220705

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 40 xem

1 trả lời

Thích Trả lời

thuhang719

Program BTT;
Uses crt;
Const Max=1000000;
Var A:array[1..max] of longint;
n: longint;

Function kt(n: longint): boolean;
Var i, k: longint;
Begin
If (n=2) or (n=3) then exit(true);
If (n<2) or (n mod 2=0) or (n mod 3=0) then exit(false);
k:=5;
While k<=trunc(sqrt(n)) do
Begin
If (n mod k=0) or (n mod (k+2)=0) then exit(false);
Inc(k,6);
End;
exit(true);
End;

Function tong(n: longint): longint;
Var i, s: longint;
st: string;
Begin
s:=0;
Str(n,st);
For i:=1 to length(st) do s:=s+sqr(ord(st[i])-48);
exit(s);
End;

Procedure XL;
Var i, dem: longint;
Begin
dem:=0;
For i:=2 to max do
If kt(tong(i)) then
Begin
Inc(dem);
A[dem]:=i;
End;
While not eof do
Begin
Readln(n);
Writeln(a[n]);
End;
End;

Begin
Clrscr;
XL;
Readln;
End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mọi người giúp mình câu này với mình đang cần gấp

2x chia 3x tất cả mũ 2 trên 2x trừ 3 cộng 5 mũ 2 trừ x

Có 5 chó, 6 gà , 7ngan . Chọn ngẫu nhiên 3 con , tính sác xuất a) 3 con cùng loại b) 3 con không cùng loại

sự khác nhau và giống nhau về 2 đại lượng tỉ lệ thuận và đại lượng tỉ lệ nghịch

Tây Nam Á tiếp giáp với vịnh nào , biển nào ? Khu vực châu Á ?

d:y=ax+3a+2 a) a=? de d tao voi truc 0x 1 goc 45 do b) a=? de d di qua diem A(-1;-3) c) tim diem co dinh ma d luon di qua

Giúp mình với ạ : Tìm m để phương trình cos2x + m.sin2x = 2m -1 vô nghiệm .

vì sao các quốc gia cổ đại phương tây lại hình thành kiểu nhà nước thị quốc

Cho 3,06 gam hỗn hợp K2CO3 và MgCO3 tác dụng với dung dịch HCl thu được V lít CO2 (đktc) cà dung dịch X. Cô cạn dung dịch X thu được 3,39 g muối khan. Tính V.

Bạn nào giúp mình bài này với ạ :3 Lập trình Pascal nhaaaa <3

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến