2
8
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin