仪仗队(points)

仪仗队(points)

【题意】

求存在多少个i,j互质的二元组(i,j)(0<=i,j<=n)

【输入】

一个数字表示n(n<=40000)

【输出】

一个数字,表示有多少个满足条件的二元组


枚举2到4000,对于每一个求其欧拉函数,求和乘二+3


program points;
var
  n,i,j,k,tot,ans:longint;
  prime:array [0..10001] of longint;
  yes:array [0..40001] of boolean;

begin
  assign(input,'points.in');
  reset(input);
  assign(output,'points.out');
  rewrite(output);
  read(n);
  dec(n);
  tot:=0;
  fillchar(yes,sizeof(yes),false);
  for i:=2 to n do
    if not yes[i] then
      begin
        inc(tot);
        prime[tot]:=i;
        yes[i]:=true;
        for j:=i to n div i do
          yes[i*j]:=true;
      end;
  ans:=0;
  for i:=2 to n do
    begin
      k:=i;
      j:=1;
      while (j<=tot)and(prime[j]<=i) do
        begin
          if i mod prime[j] = 0 then k:=k*(prime[j]-1) div (prime[j]);
          inc(j);
        end;
      ans:=ans+k;
    end;
  ans:=ans*2+3;
  writeln(ans);
  close(input);
  close(output);
end.





基于C#开发的一个稳定可靠的上位机系统,旨在满足工业控制的需求。该系统集成了多个功能界面,如操作界面、监控界面、工艺流显示界面、工艺表界面、工艺编辑界面、曲线界面和异常报警界面。每个界面都经过精心设计,以提高用户体验和工作效率。例如,操作界面和监控界面对触摸屏友好,支持常规点击和数字输入框;工艺流显示界面能够实时展示工艺步骤并变换颜色;工艺表界面支持Excel和加密文件的导入导出;工艺编辑界面采用树形编辑方式;曲线界面可展示八组曲线并自定义纵坐标数值;异常报警界面能够在工艺流程出现问题时及时报警。此外,该系统还支持与倍福TC2、TC3和西门子PLC1200/300等下位机设备的通信,确保生产线的顺畅运行。系统参考欧洲工艺软件开发,已稳定运行多年,证明了其可靠性和稳定性。 适合人群:从事工业自动化领域的工程师和技术人员,尤其是对C#编程有一定基础的人群。 使用场景及目标:适用于需要构建高效、稳定的工业控制系统的企业和个人开发者。主要目标是提升生产效率、确保生产安全、优化工艺流程管理和实现数据的有效管理与传输。 其他说明:文中提供了部分示例代码片段,帮助读者更好地理解具体实现方法。系统的复杂度较高,但凭借C#的强大功能和开发团队的经验,确保了系统的稳定性和可靠性。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值