diff options
Diffstat (limited to 'others/volume1/024.pas')
-rw-r--r-- | others/volume1/024.pas | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/others/volume1/024.pas b/others/volume1/024.pas new file mode 100644 index 0000000..affcbaa --- /dev/null +++ b/others/volume1/024.pas @@ -0,0 +1,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. |