社区讨论

哪儿错了？

yyuzoe
P1304哥德巴赫猜想参与者 3已保存回复 2

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
2 条
当前快照
1 份
快照标识符
@mi4eg170
此快照首次捕获于
2025/11/18 17:56
4 个月前
此快照最后确认于
2025/11/18 17:56
4 个月前
查看原帖
CPP
var
  n,i,j,k:longint;
  flag:boolean;
function pd(x:longint):boolean;
var y:longint;
begin
  pd:=true;
  for y:=2 to trunc(sqrt(x)) do
  if x mod y=0 then pd:=false;
  if x=1 then pd:=false;
end;
begin
  readln(n);
  for i:=4 to n do begin
  flag:=true;
    if not(odd(i)) then
      for j:=2 to n do
        for k:=2 to n do
          if flag and pd(j) and pd(k) and (j+k=i) then begin
            writeln(i,'=',j,'+',k);
            flag:=false
          end;
  end
end.

回复

共 2 条回复，欢迎继续交流。

正在加载回复...