Ideone.com | Online COBOL Compiler & Debugging Tool

language:	COBOL 85 (tinycobol-0.65.9)
date:	134 days 6 hours ago
link:
visibility:	public private user's deleted

source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
IDENTIFICATION DIVISION.
PROGRAM-ID. SequenceProgram.
AUTHOR. amod aryan.                     
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.
 
 
PROCEDURE DIVISION.
CalculateResult.
   ACCEPT Num1.
   ACCEPT Num2.
   MULTIPLY Num1 BY Num2 GIVING Result.
   DISPLAY "Result is = ", Result.
   STOP RUN.

clone download copy to clipboard

compilation info hide

source code

syntax highlight

input (#_)

input / output show all hide all

# 3 # 2 # 1

upload with new input
# 3: hide show clone input 134 days 6 hours ago Success

result: Success time: 0.01s memory: 3996 kB returned value: 0
input:
```
19
```
output:
```
Result is = 00
```
# 2: hide show clone input 134 days 6 hours ago Success

result: Success time: 0.01s memory: 3996 kB returned value: 0
input:
```
1
```
output:
```
Result is = 00
```
# 1: hide show clone input 134 days 6 hours ago Success

result: Success time: 0.01s memory: 3996 kB returned value: 0

input: no
output:
```
Result is = 00
```

UsernamePassword

Username
Password