Submission #3467938


Source Code Expand

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

Submission Info

Submission Time
Task B - 価格の合計
User luogu_bot3
Language Pascal (FPC 2.6.2)
Score 100
Code Size 248 Byte
Status AC
Exec Time 0 ms
Memory 128 KB

Compile Error

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

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 20
Set Name Test Cases
Sample subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt
All subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt
Case Name Status Exec Time Memory
subtask0_sample01.txt AC 0 ms 128 KB
subtask0_sample02.txt AC 0 ms 128 KB
subtask0_sample03.txt AC 0 ms 128 KB
subtask1_01.txt AC 0 ms 128 KB
subtask1_02.txt AC 0 ms 128 KB
subtask1_03.txt AC 0 ms 128 KB
subtask1_04.txt AC 0 ms 128 KB
subtask1_05.txt AC 0 ms 128 KB
subtask1_06.txt AC 0 ms 128 KB
subtask1_07.txt AC 0 ms 128 KB
subtask1_08.txt AC 0 ms 128 KB
subtask1_09.txt AC 0 ms 128 KB
subtask1_10.txt AC 0 ms 128 KB
subtask1_11.txt AC 0 ms 128 KB
subtask1_12.txt AC 0 ms 128 KB
subtask1_13.txt AC 0 ms 128 KB
subtask1_14.txt AC 0 ms 128 KB
subtask1_15.txt AC 0 ms 128 KB
subtask1_16.txt AC 0 ms 128 KB
subtask1_17.txt AC 0 ms 128 KB