社区讨论

喇里做错了？？？

我我珂真尽梨了
P1028[NOIP 2001 普及组] 数的计算参与者 7已保存回复 7

讨论操作

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

当前回复
7 条
当前快照
1 份
快照标识符
@lo0u943q
此快照首次捕获于
2023/10/22 10:17
2 年前
此快照最后确认于
2025/11/18 18:49
4 个月前
查看原帖
CPP
var
  s:string;
  m,i,ans:longint;
procedure search(n:longint);
  var
    i:longint;
begin 
  if m=1 then exit;
  for i:=1 to n div 2 do begin
    inc(ans);
    search(i);
  end;
end;
begin
  readln(s);m:=ord(s[1])-48;
  ans:=1;
  for i:=1 to m div 2 do begin
    inc(ans);
    search(i);
  end;
  write(ans);
end.//求解啊！！！

回复

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

正在加载回复...