Submission #3713914
Source Code Expand
var n,a,x,y,z:Longint; begin read(n,a); a:=a div 1000; for y:=0 to 8 do begin x:=(a-n-4*y)div 9; z:=n-y-x; if(x>=0)and(y>=0)and(z>=0)and(x*10+y*5+z=a)then begin writeln(x,' ',y,' ',z); exit; end; end; writeln('-1 -1 -1'); end.
Submission Info
Submission Time | |
---|---|
Task | C - Otoshidama |
User | kotatsugame |
Language | Pascal (FPC 2.6.2) |
Score | 300 |
Code Size | 260 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 | 300 / 300 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | a01, a02, a03, a04 |
All | a01, a02, a03, a04, b05, b06, b07, b08, b09, b10, b11, b12, b13, b14, b15, b16, b17, b18, b19, b20, b21, b22, b23, b24 |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
a01 | AC | 0 ms | 128 KB |
a02 | AC | 0 ms | 128 KB |
a03 | AC | 0 ms | 128 KB |
a04 | AC | 0 ms | 128 KB |
b05 | AC | 0 ms | 128 KB |
b06 | AC | 0 ms | 128 KB |
b07 | AC | 0 ms | 128 KB |
b08 | AC | 0 ms | 128 KB |
b09 | AC | 0 ms | 128 KB |
b10 | AC | 0 ms | 128 KB |
b11 | AC | 0 ms | 128 KB |
b12 | AC | 0 ms | 128 KB |
b13 | AC | 0 ms | 128 KB |
b14 | AC | 0 ms | 128 KB |
b15 | AC | 0 ms | 128 KB |
b16 | AC | 0 ms | 128 KB |
b17 | AC | 0 ms | 128 KB |
b18 | AC | 0 ms | 128 KB |
b19 | AC | 0 ms | 128 KB |
b20 | AC | 0 ms | 128 KB |
b21 | AC | 0 ms | 128 KB |
b22 | AC | 0 ms | 128 KB |
b23 | AC | 0 ms | 128 KB |
b24 | AC | 0 ms | 128 KB |