社区讨论

第四个点错

yyuzoe
P1478陶陶摘苹果（升级版）参与者 5已保存回复 12

讨论操作

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

当前回复
12 条
当前快照
1 份
快照标识符
@mi4eg356
此快照首次捕获于
2025/11/18 17:57
4 个月前
此快照最后确认于
2025/11/18 17:59
4 个月前
查看原帖
CPP
var
  c,d:array[1..10000] of longint;
  n,s,a,b,i,t,x,j:longint;
begin
  read(n,s);
  read(a,b);
  for i:=1 to n do read(c[i],d[i]);
  for j:=n downto 2 do
  for i:=1 to n-1 do
  if d[i]>d[i+1] then begin
  t:=d[i];d[i]:=d[i+1];d[i+1]:=t;
  t:=c[i];c[i]:=c[i+1];c[i+1]:=t;
  end;
  a:=a+b;
  i:=1;
  repeat
  if a<c[i] then i:=i+1
  else begin
  s:=s-d[i];
  x:=x+1;
  i:=i+1;
  end;
  until (i=n) or (s<0);
  if i=n then write(x)
  else write(x-1);
end.

回复

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

正在加载回复...