blob: affcbaa6f0daf0adf98befca753a03cb7d89f4e7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
uses cmath;
var
n: int64;
b: boolean;
begin
readln(n);
b := isprime(n);
while b and (n > 9) do
begin
n := n div 10;
b := b and isprime(n)
end;
writeln(b)
end.
|