Submission #2832228
Source Code Expand
IDENTIFICATION DIVISION.
PROGRAM-ID. ABC_055_B.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 i PIC 9(6).
01 INF PIC 9(10) VALUE 1000000007.
01 N PIC 9(6).
01 tmp PIC 9(10).
01 ans PIC X(10).
01 ZS PIC Z(11).
01 DUMMY PIC X(1).
PROCEDURE DIVISION.
MAIN.
ACCEPT N.
MOVE 1 TO tmp.
PERFORM VARYING i FROM 1 BY 1 UNTIL N < i
COMPUTE tmp = FUNCTION MOD(tmp * i, INF)
END-PERFORM.
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 | B - Training Camp |
| User | ShinjiSHIBATA |
| Language | COBOL - Free (OpenCOBOL 1.1.0) |
| Score | 0 |
| Code Size | 876 Byte |
| Status | WA |
| Exec Time | 103 ms |
| Memory | 888 KB |
Judge Result
| Set Name | Sample | All | ||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Score / Max Score | 0 / 0 | 0 / 200 | ||||||||
| Status |
|
|
| Set Name | Test Cases |
|---|---|
| Sample | 00_example_01.txt, 00_example_02.txt, 00_example_03.txt |
| All | 00_example_01.txt, 00_example_02.txt, 00_example_03.txt, 01.txt, 02.txt, 03.txt, 04.txt |
| Case Name | Status | Exec Time | Memory |
|---|---|---|---|
| 00_example_01.txt | AC | 7 ms | 888 KB |
| 00_example_02.txt | AC | 1 ms | 384 KB |
| 00_example_03.txt | WA | 103 ms | 384 KB |
| 01.txt | WA | 3 ms | 384 KB |
| 02.txt | AC | 1 ms | 384 KB |
| 03.txt | WA | 103 ms | 384 KB |
| 04.txt | WA | 82 ms | 384 KB |