Submission #2832213
Source Code Expand
IDENTIFICATION DIVISION.
PROGRAM-ID. ABC_055_A.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 N PIC 9(3).
01 tmpN PIC 9(3).
01 tmp PIC 9(6).
01 ans PIC X(6).
01 ZS PIC Z(7).
01 DUMMY PIC X(1).
PROCEDURE DIVISION.
MAIN.
ACCEPT N.
DIVIDE 15 INTO N GIVING tmpN.
COMPUTE tmp = 800 * N - tmpN * 200
MOVE tmp TO ZS.
PERFORM UNANS.
DISPLAY ans(1:FUNCTION STORED-CHAR-LENGTH(ans)).
STOP RUN.
UNANS SECTION.
UNSTRING
ZS DELIMITED BY ALL SPACE
INTO DUMMY ans
END-UNSTRING.
Submission Info
| Submission Time | |
|---|---|
| Task | A - Restaurant |
| User | ShinjiSHIBATA |
| Language | COBOL - Free (OpenCOBOL 1.1.0) |
| Score | 100 |
| Code Size | 772 Byte |
| Status | AC |
| Exec Time | 1 ms |
| Memory | 384 KB |
Judge Result
| Set Name | Sample | All | ||||
|---|---|---|---|---|---|---|
| Score / Max Score | 0 / 0 | 100 / 100 | ||||
| Status |
|
|
| Set Name | Test Cases |
|---|---|
| Sample | 00_example_01.txt, 00_example_02.txt |
| All | 00_example_01.txt, 00_example_02.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt |
| Case Name | Status | Exec Time | Memory |
|---|---|---|---|
| 00_example_01.txt | AC | 1 ms | 384 KB |
| 00_example_02.txt | AC | 1 ms | 384 KB |
| 01.txt | AC | 1 ms | 384 KB |
| 02.txt | AC | 1 ms | 384 KB |
| 03.txt | AC | 1 ms | 384 KB |
| 04.txt | AC | 1 ms | 384 KB |
| 05.txt | AC | 1 ms | 384 KB |
| 06.txt | AC | 1 ms | 384 KB |