用pascal输出：一天，尼克给了格莱尔几个数字，要求他判断是否是素数。现在，请你试编一程序，输入一个自然数，判断是不是素数。 说明：如果一个大于1 的自然数的因数只有两个（1和它本身），那么这个数就是素数，否则就是合数。特别的，1既不是素数也不是合数。 输入 一行，一个整数 。 输出 一行：是素数，输出“Y” ；否则，输出“N”。 样例输入 复制 18 样例输出 复制 N

```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. ``` [2025-12-14 12:35:09 | AI问答 | 186点数解答]