Một số nguyên dương được gọi là số đẹp nếu tổng bình phương của các chữ số của nó là một số nguyên tố. Yêu cầu: Nhập vào một mảng A[1..n], mỗi số trên một dòng. Xuất ra màn hình số đẹp thứ A[i] --- BEAUTY.INP 1 6 --- BEAUTY.OUT 11 23

haolequochao

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 37 xem

1 trả lời

Thích Trả lời

2476744395894376

Const Fi='BEAUTY.INP';
Fo='BEAUTY.OUT';
Var f,g: text;
i,n,d,s: longint;
A: array[1..1000] of longint;
Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;

Function bpcs(b: longint): longint;
Var s: longint;
Begin
s:=0;
While b<>0 do
Begin
s:=s+sqr(b mod 10);
b:=b div 10;
End;
bpcs:=s;
End;

Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
n:=0;

While not eof(f) do
Begin
inc(n);
Readln(f,A[n]);
End;

For i:=1 to n do
Begin
d:=0; s:=10;
While d<A[i] do
Begin
If ngto(bpcs(s)) then inc(d);
inc(s);
End;
Writeln(g,s-1);
End;

Close(f);
Close(g);
End.

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

thunguyen09031997

const fi='sodep.inp';
fo='sodep.out';
var a: array [0..100000] of longint;
i,dem:longint;
function checkprime(x:longint):boolean;
var dem:byte;
c:longint;
begin
if x<=1 then exit(false);
for c:=2 to trunc(sqrt(x)) do if x mod c = 0 then exit(false);
exit(true);
end;
function check(x:longint):boolean;
begin
if checkprime((x mod 10)*(x mod 10)+(x div 10)*(x div 10)) then exit(true);
exit(false);
end;
begin
assign(input,fi);
reset(input);
while not eof() do
begin
readln(a[dem]);
inc(dem);
end;
close(input);
assign(output,fo);
rewrite(output);
for i:=0 to dem do
if check(a[i]) then writeln(a[i]);
close(output);
end.

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

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

Vì sao ko thể thay từ công dân trg câu ns của nhân vật Thành bằng các từ đồng nghĩa ở hoạt động 3 trg câu ns. Làm thân nô lệ mà muốn xóa bỏ kiếp nô lệ thì sẽ thành công dân. Còn yên phận nô lệ thì....

Tính giá trị của đa thức sau ,biết x+y-2=0 M=x^3+x^2×y-2x^2 -xy-y^2+3y+x+2006

Ai giúp em với huhu hòa tan hoàn toàn 6,4 gam hỗn hợp E gồm R,RO(R chỉ hóa trị II) bằng dung dịch HCl dư . sau phản ứng thu đc dung dịch và khí H2 . cô cạn dung dịch sau phản ứng thu đc 19 gam muối khan a ) xác định thành phần phần trăm theo khối lượng của mỗi chất trong E b) hòa tan hoàn toàn 10,72 gam hỗn hợp M gồm Ca,Cao,RO,R bằng dung dịch HCl vừa đủ thu đc 3,248 lits khí H2 và dung dịch Y chứa a gam Cacl2 và 12,35 gam RCl2 . tìm a

x^2 +y^2 = 2 { 2x^3 = (x+y)(2-xy) giải hệ phương trình có bạn nào biết giải ko giải nhanh dùm mình đi mình đang cần gấp mình cảm ơn nhiều

Phần bài lm có thể mk sai. Các bn giúp mk. Tính nhanh đc càng tốt. Bn nào lm nhanh nhất sẽ đc trả lời hay nhất nha (nếu lm đúng)

cho phép lai P:bố AabbDD lai với mẹ AaBbdd . Biết mỗi gen quy định mội tính trạng trội lặn hoàn toàn,không có đột biến . Hãy xác định tỉ lệ giao tử cái chứa gen A,B và tỉ lệ giao tử đực chứa gen a,b được tạo ra ? Tỉ lệ kiểu gen AaBbDd và tỉ lệ kiểu hình A-B-D- ở đời con f1

Lựa chọn giới thiệu một thành tựu văn hoá của nước ta từ thế kỉ XVI đến thế kỉ XVIII: + Giáo dục + Nghệ thuật kiến trúc và điêu khắc + Văn học + Khoa học kĩ thuật

Giải giúp mình nha các bạn giỏi toán hihi ^^

Lập trương trình liên hoan văn nghệ 20 -11

tam giác ABC nhọn nội tiếp đường tròn (O) có đường cao BE và CF cắt nhau tại H.Kẻ AH cắt Đường tròn (O) tại K,AO cắt đường tròn (O) tại I,từ (O) kẻ ON vuông góc BC ( N cũng đường tròn O), AN cắt BC tại D.Chứng minh rằng: a)4 điểm B,F,E,C thuộc 1 đường tròn. b)AN là phân giác của góc KAI, BC //KI. c)AB.NC=AN.BD d)BC.AK=AB.CK+AC.BK

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