社区讨论

第一次弄题解

康康娜卡姆依
P1089[NOIP 2004 提高组] 津津的储蓄计划参与者 4已保存回复 3

讨论操作

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

当前回复
3 条
当前快照
1 份
快照标识符
@mi5hg7kw
此快照首次捕获于
2025/11/19 12:08
4 个月前
此快照最后确认于
2025/11/19 12:08
4 个月前
查看原帖
CPP
var
 ans,n,i,k:longint; 
 a:array[1..12] of longint;   
begin
 ans:=0; n:=0; 
 for i:=1 to 12 do read(a[i]);
 for i:=1 to 12 do  
  begin
   n:=n+300; 
   if n<a[i] then 
    begin
     writeln('-',i);  
     exit; 
    end
    else begin
     k:=(n-a[i]) div 100;
     n:=n-a[i]-k*100;
     ans:=ans+k;
    end;
  end;
 writeln(ans*120+n); 
end.

回复

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

正在加载回复...