pascal喝醉的狱卒

[复制链接]
查看11 | 回复2 | 2011-11-26 15:21:00 | 显示全部楼层 |阅读模式
varn:integer;a:array[1..10000] of boolean;i,j:integer;beginread(n);for i:=1 to n do a:=false;for i:=1 to n do for j:=1 to n doif j mod i=0 then if a[j] then a[j]:=false else a[j]:=true;j:=0;for i:=1 to n doif a then j:=j+1;write(j);end....
回复

使用道具 举报

千问 | 2011-11-26 15:21:00 | 显示全部楼层
发了给你...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行