Submission #1840651
Source Code Expand
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,d:Integer; begin try { TODO -oUser -cConsole Main : ここにコードを記述してください } Read(a); Readln(d); if d<a then writeln(a*(d+1)) else Writeln((a+1)*d); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
Submission Info
Submission Time | |
---|---|
Task | A - ゲーム |
User | nmoxya |
Language | Pascal (FPC 2.6.2) |
Score | 100 |
Code Size | 394 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 |
|
|
Set Name | Test Cases |
---|---|
Sample | sample-01.txt, sample-02.txt, sample-03.txt |
All | sample-01.txt, sample-02.txt, sample-03.txt, test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample-01.txt | AC | 0 ms | 128 KB |
sample-02.txt | AC | 0 ms | 128 KB |
sample-03.txt | AC | 0 ms | 128 KB |
test-01.txt | AC | 0 ms | 128 KB |
test-02.txt | AC | 0 ms | 128 KB |
test-03.txt | AC | 0 ms | 128 KB |
test-04.txt | AC | 0 ms | 128 KB |
test-05.txt | AC | 0 ms | 128 KB |
test-06.txt | AC | 0 ms | 128 KB |
test-07.txt | AC | 0 ms | 128 KB |
test-08.txt | AC | 0 ms | 128 KB |
test-09.txt | AC | 0 ms | 128 KB |
test-10.txt | AC | 0 ms | 128 KB |
test-11.txt | AC | 0 ms | 128 KB |
test-12.txt | AC | 0 ms | 128 KB |
test-13.txt | AC | 0 ms | 128 KB |
test-14.txt | AC | 0 ms | 128 KB |
test-15.txt | AC | 0 ms | 128 KB |
test-16.txt | AC | 0 ms | 128 KB |
test-17.txt | AC | 0 ms | 128 KB |
test-18.txt | AC | 0 ms | 128 KB |
test-19.txt | AC | 0 ms | 128 KB |
test-20.txt | AC | 0 ms | 128 KB |