Submission #3049225

---

Source Code Expand

var
 n,m,i,sum:longint;
 s:ansistring;
 a:array[0..101] of longint;
begin
 readln(n,m);
 for i:=1 to n do read(a[i]);
 while m>0 do
  begin
   s:=s+chr(48+ord(m mod 2));
   m:=m div 2;
  end;
 for i:=1 to n do
  s:=s+'0';
 for i:=1 to n do
  if s[i]='1' then sum:=sum+a[i];
 writeln(sum);
end.

Submission Info

Compile Error

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

Judge Result