Submission #1755264

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  kazu,nishin,i,m,goukei:Integer;
  nedan:array[0..20] of Integer;
  s:string;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Read(kazu);
    Readln(nishin);
    for i := 0 to kazu - 1 do begin
      Read(nedan[i]);
    end;

    while True do begin
      m := nishin mod 2;
      nishin := nishin div 2;
      s := s + IntToStr(m);
      if nishin = 0 then
        Break;
    end;

    goukei:=0;
    for i := 1 to kazu  do begin
      if s[i]='1' then
        goukei:=goukei+nedan[i-1];
    end;

    Writeln(goukei);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result