Pascal编程：实现判断输入自然数是否为素数

```pascal program PrimeNumber; var n, i: integer; isPrime: boolean; begin // 读取输入的整数 readln(n); // 1既不是素数也不是合数 if n <= 1 then isPrime := false else begin isPrime := true; // 从2开始到该数的平方根进行遍历 for i := 2 to trunc(sqrt(n)) do begin if n mod i = 0 then begin // 如果能被整除，不是素数 isPrime := false; break; end; end; end; if isPrime then writeln('Y') else writeln('N'); end. ``` ######[AI问答 | 186点数解答 | 2025-12-14 12:35:09]