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 |
|
|
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 |