Submission #2459918


Source Code Expand

var i:longint;
    a:array[0..100]of int64;
    x,ans,max:int64;
    k,c:longint;
begin
  for i:=1 to 3 do
  begin
    read(a[i]);
    if a[i]>max then
    begin
      max:=a[i];
      c:=i;
    end;
  end;
  read(k);
  x:=1;
  for i:=1 to k do
  x:=x*2;
  for i:=1 to 3 do
  if c<>i then inc(ans,a[i]);
  inc(ans,a[c]*x);
  writeln(ans);
end.

Submission Info

Submission Time
Task B - Maximum Sum
User Bunnycxk
Language Pascal (FPC 2.6.2)
Score 200
Code Size 367 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 200 / 200
Status
AC × 2
AC × 6
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All in01.txt, in02.txt, in03.txt, in04.txt, sample_01.txt, sample_02.txt
Case Name Status Exec Time Memory
in01.txt AC 0 ms 128 KB
in02.txt AC 0 ms 128 KB
in03.txt AC 0 ms 128 KB
in04.txt AC 0 ms 128 KB
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB