Một số nguyên dương đượ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ố.
Ví dụ: 12 là số đẹp vì : 1^2+2^2=1+4=5 là một số nguyên tố.
Nhập số tự nhiên N từ bàn phím (0
Một số nguyên dương đượ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ố.
Ví dụ: 12 là số đẹp vì : 1^2+2^2=1+4=5 là một số nguyên tố.
Nhập số tự nhiên N từ bàn phím (0
uses crt;
var i,n,m:longint; a:array[1..1000000]of longint;
function tong(a:longint):longint;
begin
tong:=0;
repeat
inc(tong,sqr(a mod 10));
a:=a div 10;
until a=0;
end;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
write(‘N (0<N<32767)= ‘);readln(n);
repeat
inc(i);
if nt(tong(i)) then inc(m);
until m=n;
writeln(i);
readln
end.
Test:
uses crt;
var n,j,d:word;
function so(n:word):word;
var tam:byte;
begin
so:=0;
while n>0 do
begin
tam:=n mod 10;
n:=n div 10;
so:=so+(tam*tam);
end;
end;
function snt(x:word):boolean;
var i:word;
begin
if x<2 then snt:=false
else
begin
snt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit(false);
end;
end;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
j:=1;
repeat
inc(j);
if snt(so(j)) then dec(n);
until
n=0;
write(j);
readln
END.
Chúc bạn học tốt!