速求！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

您所在位置：社区首页 — PASCAL语言讨论区 — 速求！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

回帖发新帖刷新版面

主题：速求！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

dpy123456 [专家分：20] 发布于 2006-12-07 18:40:00

怎么编这个程序[em19]：如果n是质数，输出＂yes＂,否则，输出＂no＂.[em18][em18][em18]

本帖地址： http://bbs.pfan.cn/post/208272.html

回复列表（共7个回复）

沙发

angwuy [专家分：2280] 发布于 2006-12-07 19:10:00

直接枚举

板凳

zhangyuan [专家分：630] 发布于 2006-12-07 19:16:00

if (n=2)or(n=1) then wirte('Yes');
j:=3;
for i:=3 to n-1 do
begin
if n mod i=0 then wirte('No');
if n mod i<>0 then j:=j+1;
end;
if j=n then wirte('Yes');

3 楼

编程黑客 [专家分：1660] 发布于 2006-12-07 21:42:00

书上有源程序啊

4 楼

sss333 [专家分：340] 发布于 2006-12-08 15:38:00

program sss333;
var
j,n,x:integer;
begin
read(n);
x:=0;
for j:=1 to n do
if n mod j=0 then x:=x+1;
if x<=2 then writeln('yes')
else wrietln('no');
end.

5 楼

zhangyuan [专家分：630] 发布于 2006-12-08 18:12:00

if n=‘质数’then write('yes');
开个小玩笑

6 楼

dpy1234567 [专家分：30] 发布于 2006-12-08 19:23:00

[em9][em9]

7 楼

丁沛诒白痴dpy123456 [专家分：0] 发布于 2006-12-10 13:35:00

dpy123456 丁沛怡

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：速求！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

回复列表（共7个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：速求！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

回复列表 （共7个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共7个回复）