社区讨论

Pascal 70分 求解

hhycuihz
P1909[NOIP 2016 普及组] 买铅笔参与者 11已保存回复 13

讨论操作

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

当前回复
13 条
当前快照
1 份
快照标识符
@mi5hraef
此快照首次捕获于
2025/11/19 12:17
4 个月前
此快照最后确认于
2025/11/19 12:34
4 个月前
查看原帖
代码
DELPHI
var
  n,k,i,s,jg:longint;
  qbsl:array[1..3] of longint;
  qbjg:array[1..3] of longint;
begin
  readln(n);
  s:=2147483647;
  for i:=1 to 3 do
  begin
    readln(qbsl[i],qbjg[i]);
    k:=(n div qbsl[i])+1;
    jg:=k*qbjg[i];
    if s<jg then continue
    else s:=jg;
  end;
  writeln(s);
end.

回复

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

正在加载回复...