Submission #54413273
Source Code Expand
Copy
000010 IDENTIFICATION DIVISION.000020 PROGRAM-ID. WELCOME-TO-ATCODER.000030 ENVIRONMENT DIVISION.000040 DATA DIVISION.000050 WORKING-STORAGE SECTION.000060 77 A PIC 9(4).000070 77 B-AND-C PIC X(9).000080 77 B PIC 9(4).000090 77 C PIC 9(4).000100 77 S PIC X(100).000110 01 ADDED-TOP.000120 03 ADDED PIC 9(4).000130 03 FILLER REDEFINES ADDED.000140 05 FILLER PIC 9.000150 05 ADDED3 PIC 9(3).000160 03 FILLER REDEFINES ADDED.000170 05 FILLER PIC 9(2).000180 05 ADDED2 PIC 9(2).000190 03 FILLER REDEFINES ADDED.000200 05 FILLER PIC 9(3).000210 05 ADDED1 PIC 9.
000010 IDENTIFICATION DIVISION. 000020 PROGRAM-ID. WELCOME-TO-ATCODER. 000030 ENVIRONMENT DIVISION. 000040 DATA DIVISION. 000050 WORKING-STORAGE SECTION. 000060 77 A PIC 9(4). 000070 77 B-AND-C PIC X(9). 000080 77 B PIC 9(4). 000090 77 C PIC 9(4). 000100 77 S PIC X(100). 000110 01 ADDED-TOP. 000120 03 ADDED PIC 9(4). 000130 03 FILLER REDEFINES ADDED. 000140 05 FILLER PIC 9. 000150 05 ADDED3 PIC 9(3). 000160 03 FILLER REDEFINES ADDED. 000170 05 FILLER PIC 9(2). 000180 05 ADDED2 PIC 9(2). 000190 03 FILLER REDEFINES ADDED. 000200 05 FILLER PIC 9(3). 000210 05 ADDED1 PIC 9. 000220 01 RESULT-TOP. 000250 03 RESULT PIC X(105). 000260 03 FILLER REDEFINES RESULT. 000270 05 RESULT3 PIC X(3). 000280 03 FILLER REDEFINES RESULT. 000290 05 RESULT4 PIC X(4). 000300 03 FILLER REDEFINES RESULT. 000310 05 RESULT5 PIC X(5). 000320 03 FILLER REDEFINES RESULT. 000330 05 RESULT6 PIC X(6). 000340 03 FILLER REDEFINES RESULT. 000350 05 RESULT7 PIC X(7). 000360 03 FILLER REDEFINES RESULT. 000370 05 RESULT8 PIC X(8). 000380 03 FILLER REDEFINES RESULT. 000390 05 RESULT9 PIC X(9). 000400 03 FILLER REDEFINES RESULT. 000410 05 RESULT10 PIC X(10). 000420 03 FILLER REDEFINES RESULT. 000430 05 RESULT11 PIC X(11). 000440 03 FILLER REDEFINES RESULT. 000450 05 RESULT12 PIC X(12). 000460 03 FILLER REDEFINES RESULT. 000470 05 RESULT13 PIC X(13). 000480 03 FILLER REDEFINES RESULT. 000490 05 RESULT14 PIC X(14). 000500 03 FILLER REDEFINES RESULT. 000510 05 RESULT15 PIC X(15). 000520 03 FILLER REDEFINES RESULT. 000530 05 RESULT16 PIC X(16). 000540 03 FILLER REDEFINES RESULT. 000550 05 RESULT17 PIC X(17). 000560 03 FILLER REDEFINES RESULT. 000570 05 RESULT18 PIC X(18). 000580 03 FILLER REDEFINES RESULT. 000590 05 RESULT19 PIC X(19). 000600 03 FILLER REDEFINES RESULT. 000610 05 RESULT20 PIC X(20). 000620 03 FILLER REDEFINES RESULT. 000630 05 RESULT21 PIC X(21). 000640 03 FILLER REDEFINES RESULT. 000650 05 RESULT22 PIC X(22). 000660 03 FILLER REDEFINES RESULT. 000670 05 RESULT23 PIC X(23). 000680 03 FILLER REDEFINES RESULT. 000690 05 RESULT24 PIC X(24). 000700 03 FILLER REDEFINES RESULT. 000710 05 RESULT25 PIC X(25). 000720 03 FILLER REDEFINES RESULT. 000730 05 RESULT26 PIC X(26). 000740 03 FILLER REDEFINES RESULT. 000750 05 RESULT27 PIC X(27). 000760 03 FILLER REDEFINES RESULT. 000770 05 RESULT28 PIC X(28). 000780 03 FILLER REDEFINES RESULT. 000790 05 RESULT29 PIC X(29). 000800 03 FILLER REDEFINES RESULT. 000810 05 RESULT30 PIC X(30). 000820 03 FILLER REDEFINES RESULT. 000830 05 RESULT31 PIC X(31). 000840 03 FILLER REDEFINES RESULT. 000850 05 RESULT32 PIC X(32). 000860 03 FILLER REDEFINES RESULT. 000870 05 RESULT33 PIC X(33). 000880 03 FILLER REDEFINES RESULT. 000890 05 RESULT34 PIC X(34). 000900 03 FILLER REDEFINES RESULT. 000910 05 RESULT35 PIC X(35). 000920 03 FILLER REDEFINES RESULT. 000930 05 RESULT36 PIC X(36). 000940 03 FILLER REDEFINES RESULT. 000950 05 RESULT37 PIC X(37). 000960 03 FILLER REDEFINES RESULT. 000970 05 RESULT38 PIC X(38). 000980 03 FILLER REDEFINES RESULT. 000990 05 RESULT39 PIC X(39). 001000 03 FILLER REDEFINES RESULT. 001010 05 RESULT40 PIC X(40). 001020 03 FILLER REDEFINES RESULT. 001030 05 RESULT41 PIC X(41). 001040 03 FILLER REDEFINES RESULT. 001050 05 RESULT42 PIC X(42). 001060 03 FILLER REDEFINES RESULT. 001070 05 RESULT43 PIC X(43). 001080 03 FILLER REDEFINES RESULT. 001090 05 RESULT44 PIC X(44). 001100 03 FILLER REDEFINES RESULT. 001110 05 RESULT45 PIC X(45). 001120 03 FILLER REDEFINES RESULT. 001130 05 RESULT46 PIC X(46). 001140 03 FILLER REDEFINES RESULT. 001150 05 RESULT47 PIC X(47). 001160 03 FILLER REDEFINES RESULT. 001170 05 RESULT48 PIC X(48). 001180 03 FILLER REDEFINES RESULT. 001190 05 RESULT49 PIC X(49). 001200 03 FILLER REDEFINES RESULT. 001210 05 RESULT50 PIC X(50). 001220 03 FILLER REDEFINES RESULT. 001230 05 RESULT51 PIC X(51). 001240 03 FILLER REDEFINES RESULT. 001250 05 RESULT52 PIC X(52). 001260 03 FILLER REDEFINES RESULT. 001270 05 RESULT53 PIC X(53). 001280 03 FILLER REDEFINES RESULT. 001290 05 RESULT54 PIC X(54). 001300 03 FILLER REDEFINES RESULT. 001310 05 RESULT55 PIC X(55). 001320 03 FILLER REDEFINES RESULT. 001330 05 RESULT56 PIC X(56). 001340 03 FILLER REDEFINES RESULT. 001350 05 RESULT57 PIC X(57). 001360 03 FILLER REDEFINES RESULT. 001370 05 RESULT58 PIC X(58). 001380 03 FILLER REDEFINES RESULT. 001390 05 RESULT59 PIC X(59). 001400 03 FILLER REDEFINES RESULT. 001410 05 RESULT60 PIC X(60). 001420 03 FILLER REDEFINES RESULT. 001430 05 RESULT61 PIC X(61). 001440 03 FILLER REDEFINES RESULT. 001450 05 RESULT62 PIC X(62). 001460 03 FILLER REDEFINES RESULT. 001470 05 RESULT63 PIC X(63). 001480 03 FILLER REDEFINES RESULT. 001490 05 RESULT64 PIC X(64). 001500 03 FILLER REDEFINES RESULT. 001510 05 RESULT65 PIC X(65). 001520 03 FILLER REDEFINES RESULT. 001530 05 RESULT66 PIC X(66). 001540 03 FILLER REDEFINES RESULT. 001550 05 RESULT67 PIC X(67). 001560 03 FILLER REDEFINES RESULT. 001570 05 RESULT68 PIC X(68). 001580 03 FILLER REDEFINES RESULT. 001590 05 RESULT69 PIC X(69). 001600 03 FILLER REDEFINES RESULT. 001610 05 RESULT70 PIC X(70). 001620 03 FILLER REDEFINES RESULT. 001630 05 RESULT71 PIC X(71). 001640 03 FILLER REDEFINES RESULT. 001650 05 RESULT72 PIC X(72). 001660 03 FILLER REDEFINES RESULT. 001670 05 RESULT73 PIC X(73). 001680 03 FILLER REDEFINES RESULT. 001690 05 RESULT74 PIC X(74). 001700 03 FILLER REDEFINES RESULT. 001710 05 RESULT75 PIC X(75). 001720 03 FILLER REDEFINES RESULT. 001730 05 RESULT76 PIC X(76). 001740 03 FILLER REDEFINES RESULT. 001750 05 RESULT77 PIC X(77). 001760 03 FILLER REDEFINES RESULT. 001770 05 RESULT78 PIC X(78). 001780 03 FILLER REDEFINES RESULT. 001790 05 RESULT79 PIC X(79). 001800 03 FILLER REDEFINES RESULT. 001810 05 RESULT80 PIC X(80). 001820 03 FILLER REDEFINES RESULT. 001830 05 RESULT81 PIC X(81). 001840 03 FILLER REDEFINES RESULT. 001850 05 RESULT82 PIC X(82). 001860 03 FILLER REDEFINES RESULT. 001870 05 RESULT83 PIC X(83). 001880 03 FILLER REDEFINES RESULT. 001890 05 RESULT84 PIC X(84). 001900 03 FILLER REDEFINES RESULT. 001910 05 RESULT85 PIC X(85). 001920 03 FILLER REDEFINES RESULT. 001930 05 RESULT86 PIC X(86). 001940 03 FILLER REDEFINES RESULT. 001950 05 RESULT87 PIC X(87). 001960 03 FILLER REDEFINES RESULT. 001970 05 RESULT88 PIC X(88). 001980 03 FILLER REDEFINES RESULT. 001990 05 RESULT89 PIC X(89). 002000 03 FILLER REDEFINES RESULT. 002010 05 RESULT90 PIC X(90). 002020 03 FILLER REDEFINES RESULT. 002030 05 RESULT91 PIC X(91). 002040 03 FILLER REDEFINES RESULT. 002050 05 RESULT92 PIC X(92). 002060 03 FILLER REDEFINES RESULT. 002070 05 RESULT93 PIC X(93). 002080 03 FILLER REDEFINES RESULT. 002090 05 RESULT94 PIC X(94). 002100 03 FILLER REDEFINES RESULT. 002110 05 RESULT95 PIC X(95). 002120 03 FILLER REDEFINES RESULT. 002130 05 RESULT96 PIC X(96). 002140 03 FILLER REDEFINES RESULT. 002150 05 RESULT97 PIC X(97). 002160 03 FILLER REDEFINES RESULT. 002170 05 RESULT98 PIC X(98). 002180 03 FILLER REDEFINES RESULT. 002190 05 RESULT99 PIC X(99). 002200 03 FILLER REDEFINES RESULT. 002210 05 RESULT100 PIC X(100). 002220 03 FILLER REDEFINES RESULT. 002230 05 RESULT101 PIC X(101). 002240 03 FILLER REDEFINES RESULT. 002250 05 RESULT102 PIC X(102). 002260 03 FILLER REDEFINES RESULT. 002270 05 RESULT103 PIC X(103). 002280 03 FILLER REDEFINES RESULT. 002290 05 RESULT104 PIC X(104). 002300 77 RESULT-PTR PIC 9(4) VALUE 1. 002310 PROCEDURE DIVISION. 002320 MAIN. 002330 ACCEPT A FROM CONSOLE. 002340 ACCEPT B-AND-C FROM CONSOLE. 002350 ACCEPT S FROM CONSOLE. 002360 UNSTRING B-AND-C DELIMITED BY ALL " " INTO B C. 002370 COMPUTE ADDED = A + B + C 002380 IF ADDED < 10 THEN 002390 STRING ADDED1 INTO RESULT WITH POINTER RESULT-PTR 002400 ELSE 002410 IF ADDED < 100 THEN 002420 STRING ADDED2 INTO RESULT WITH POINTER RESULT-PTR 002430 ELSE 002440 IF ADDED < 1000 THEN 002450 STRING ADDED3 INTO RESULT WITH POINTER RESULT-PTR 002460 ELSE 002470 STRING ADDED INTO RESULT WITH POINTER RESULT-PTR 002480 END-IF 002490 END-IF 002500 END-IF. 002510 STRING SPACE INTO RESULT WITH POINTER RESULT-PTR 002520 STRING S DELIMITED BY " " INTO RESULT WITH POINTER RESULT-PTR 002530 EVALUATE RESULT-PTR 002540 WHEN 4 002550 DISPLAY RESULT3 UPON CONSOLE 002560 WHEN 5 002570 DISPLAY RESULT4 UPON CONSOLE 002580 WHEN 6 002590 DISPLAY RESULT5 UPON CONSOLE 002600 WHEN 7 002610 DISPLAY RESULT6 UPON CONSOLE 002620 WHEN 8 002630 DISPLAY RESULT7 UPON CONSOLE 002640 WHEN 9 002650 DISPLAY RESULT8 UPON CONSOLE 002660 WHEN 10 002670 DISPLAY RESULT9 UPON CONSOLE 002680 WHEN 11 002690 DISPLAY RESULT10 UPON CONSOLE 002700 WHEN 12 002710 DISPLAY RESULT11 UPON CONSOLE 002720 WHEN 13 002730 DISPLAY RESULT12 UPON CONSOLE 002740 WHEN 14 002750 DISPLAY RESULT13 UPON CONSOLE 002760 WHEN 15 002770 DISPLAY RESULT14 UPON CONSOLE 002780 WHEN 16 002790 DISPLAY RESULT15 UPON CONSOLE 002800 WHEN 17 002810 DISPLAY RESULT16 UPON CONSOLE 002820 WHEN 18 002830 DISPLAY RESULT17 UPON CONSOLE 002840 WHEN 19 002850 DISPLAY RESULT18 UPON CONSOLE 002860 WHEN 20 002870 DISPLAY RESULT19 UPON CONSOLE 002880 WHEN 21 002890 DISPLAY RESULT20 UPON CONSOLE 002900 WHEN 22 002910 DISPLAY RESULT21 UPON CONSOLE 002920 WHEN 23 002930 DISPLAY RESULT22 UPON CONSOLE 002940 WHEN 24 002950 DISPLAY RESULT23 UPON CONSOLE 002960 WHEN 25 002970 DISPLAY RESULT24 UPON CONSOLE 002980 WHEN 26 002990 DISPLAY RESULT25 UPON CONSOLE 003000 WHEN 27 003010 DISPLAY RESULT26 UPON CONSOLE 003020 WHEN 28 003030 DISPLAY RESULT27 UPON CONSOLE 003040 WHEN 29 003050 DISPLAY RESULT28 UPON CONSOLE 003060 WHEN 30 003070 DISPLAY RESULT29 UPON CONSOLE 003080 WHEN 31 003090 DISPLAY RESULT30 UPON CONSOLE 003100 WHEN 32 003110 DISPLAY RESULT31 UPON CONSOLE 003120 WHEN 33 003130 DISPLAY RESULT32 UPON CONSOLE 003140 WHEN 34 003150 DISPLAY RESULT33 UPON CONSOLE 003160 WHEN 35 003170 DISPLAY RESULT34 UPON CONSOLE 003180 WHEN 36 003190 DISPLAY RESULT35 UPON CONSOLE 003200 WHEN 37 003210 DISPLAY RESULT36 UPON CONSOLE 003220 WHEN 38 003230 DISPLAY RESULT37 UPON CONSOLE 003240 WHEN 39 003250 DISPLAY RESULT38 UPON CONSOLE 003260 WHEN 40 003270 DISPLAY RESULT39 UPON CONSOLE 003280 WHEN 41 003290 DISPLAY RESULT40 UPON CONSOLE 003300 WHEN 42 003310 DISPLAY RESULT41 UPON CONSOLE 003320 WHEN 43 003330 DISPLAY RESULT42 UPON CONSOLE 003340 WHEN 44 003350 DISPLAY RESULT43 UPON CONSOLE 003360 WHEN 45 003370 DISPLAY RESULT44 UPON CONSOLE 003380 WHEN 46 003390 DISPLAY RESULT45 UPON CONSOLE 003400 WHEN 47 003410 DISPLAY RESULT46 UPON CONSOLE 003420 WHEN 48 003430 DISPLAY RESULT47 UPON CONSOLE 003440 WHEN 49 003450 DISPLAY RESULT48 UPON CONSOLE 003460 WHEN 50 003470 DISPLAY RESULT49 UPON CONSOLE 003480 WHEN 51 003490 DISPLAY RESULT50 UPON CONSOLE 003500 WHEN 52 003510 DISPLAY RESULT51 UPON CONSOLE 003520 WHEN 53 003530 DISPLAY RESULT52 UPON CONSOLE 003540 WHEN 54 003550 DISPLAY RESULT53 UPON CONSOLE 003560 WHEN 55 003570 DISPLAY RESULT54 UPON CONSOLE 003580 WHEN 56 003590 DISPLAY RESULT55 UPON CONSOLE 003600 WHEN 57 003610 DISPLAY RESULT56 UPON CONSOLE 003620 WHEN 58 003630 DISPLAY RESULT57 UPON CONSOLE 003640 WHEN 59 003650 DISPLAY RESULT58 UPON CONSOLE 003660 WHEN 60 003670 DISPLAY RESULT59 UPON CONSOLE 003680 WHEN 61 003690 DISPLAY RESULT60 UPON CONSOLE 003700 WHEN 62 003710 DISPLAY RESULT61 UPON CONSOLE 003720 WHEN 63 003730 DISPLAY RESULT62 UPON CONSOLE 003740 WHEN 64 003750 DISPLAY RESULT63 UPON CONSOLE 003760 WHEN 65 003770 DISPLAY RESULT64 UPON CONSOLE 003780 WHEN 66 003790 DISPLAY RESULT65 UPON CONSOLE 003800 WHEN 67 003810 DISPLAY RESULT66 UPON CONSOLE 003820 WHEN 68 003830 DISPLAY RESULT67 UPON CONSOLE 003840 WHEN 69 003850 DISPLAY RESULT68 UPON CONSOLE 003860 WHEN 70 003870 DISPLAY RESULT69 UPON CONSOLE 003880 WHEN 71 003890 DISPLAY RESULT70 UPON CONSOLE 003900 WHEN 72 003910 DISPLAY RESULT71 UPON CONSOLE 003920 WHEN 73 003930 DISPLAY RESULT72 UPON CONSOLE 003940 WHEN 74 003950 DISPLAY RESULT73 UPON CONSOLE 003960 WHEN 75 003970 DISPLAY RESULT74 UPON CONSOLE 003980 WHEN 76 003990 DISPLAY RESULT75 UPON CONSOLE 004000 WHEN 77 004010 DISPLAY RESULT76 UPON CONSOLE 004020 WHEN 78 004030 DISPLAY RESULT77 UPON CONSOLE 004040 WHEN 79 004050 DISPLAY RESULT78 UPON CONSOLE 004060 WHEN 80 004070 DISPLAY RESULT79 UPON CONSOLE 004080 WHEN 81 004090 DISPLAY RESULT80 UPON CONSOLE 004100 WHEN 82 004110 DISPLAY RESULT81 UPON CONSOLE 004120 WHEN 83 004130 DISPLAY RESULT82 UPON CONSOLE 004140 WHEN 84 004150 DISPLAY RESULT83 UPON CONSOLE 004160 WHEN 85 004170 DISPLAY RESULT84 UPON CONSOLE 004180 WHEN 86 004190 DISPLAY RESULT85 UPON CONSOLE 004200 WHEN 87 004210 DISPLAY RESULT86 UPON CONSOLE 004220 WHEN 88 004230 DISPLAY RESULT87 UPON CONSOLE 004240 WHEN 89 004250 DISPLAY RESULT88 UPON CONSOLE 004260 WHEN 90 004270 DISPLAY RESULT89 UPON CONSOLE 004280 WHEN 91 004290 DISPLAY RESULT90 UPON CONSOLE 004300 WHEN 92 004310 DISPLAY RESULT91 UPON CONSOLE 004320 WHEN 93 004330 DISPLAY RESULT92 UPON CONSOLE 004340 WHEN 94 004350 DISPLAY RESULT93 UPON CONSOLE 004360 WHEN 95 004370 DISPLAY RESULT94 UPON CONSOLE 004380 WHEN 96 004390 DISPLAY RESULT95 UPON CONSOLE 004400 WHEN 97 004410 DISPLAY RESULT96 UPON CONSOLE 004420 WHEN 98 004430 DISPLAY RESULT97 UPON CONSOLE 004440 WHEN 99 004450 DISPLAY RESULT98 UPON CONSOLE 004460 WHEN 100 004470 DISPLAY RESULT99 UPON CONSOLE 004480 WHEN 101 004490 DISPLAY RESULT100 UPON CONSOLE 004500 WHEN 102 004510 DISPLAY RESULT101 UPON CONSOLE 004520 WHEN 103 004530 DISPLAY RESULT102 UPON CONSOLE 004540 WHEN 104 004550 DISPLAY RESULT103 UPON CONSOLE 004560 WHEN 105 004570 DISPLAY RESULT104 UPON CONSOLE 004580 WHEN 106 004590 DISPLAY RESULT UPON CONSOLE 004600 END-EVALUATE. 004610 STOP RUN.
Submission Info
| Submission Time | |
|---|---|
| Task | PracticeA - Welcome to AtCoder |
| User | mikecat |
| Language | COBOL (GnuCOBOL(Fixed) 3.1.2) |
| Score | 100 |
| Code Size | 21113 Byte |
| Status | AC |
| Exec Time | 10 ms |
| Memory | 6740 KB |
Judge Result
| Set Name | All | ||
|---|---|---|---|
| Score / Max Score | 100 / 100 | ||
| Status |
|
| Set Name | Test Cases |
|---|---|
| All | 00_rnd_01.txt, 00_rnd_02.txt, 00_rnd_03.txt, 00_rnd_04.txt, 00_rnd_05.txt, 00_sample_1.txt, 00_sample_2.txt |
| Case Name | Status | Exec Time | Memory |
|---|---|---|---|
| 00_rnd_01.txt | AC | 10 ms | 6680 KB |
| 00_rnd_02.txt | AC | 2 ms | 6688 KB |
| 00_rnd_03.txt | AC | 2 ms | 6740 KB |
| 00_rnd_04.txt | AC | 2 ms | 6620 KB |
| 00_rnd_05.txt | AC | 2 ms | 6688 KB |
| 00_sample_1.txt | AC | 2 ms | 6496 KB |
| 00_sample_2.txt | AC | 2 ms | 6640 KB |