Ideone.com | Online Pascal Compiler & Debugging Tool

language:	Pascal (gpc) (gpc 20070904)
date:	103 days 1 hour 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
program eukolo(input,output);
 var  x, y : integer;
Begin
 readln(x);
 readln(y);
 if ((x*y) div 1000 <> 0) and ((x*y) div 10000 = 0) then writeln('yes')
  else writeln('no')
End.

clone download copy to clipboard

compilation info hide

source code

syntax highlight

input (#_)

input / output show all hide all

# 4 # 3 # 2 # 1

upload with new input
# 4: hide show clone input 103 days 1 hour ago Success

result: Success time: 0.02s memory: 4112 kB returned value: 0
input:
```
1345
234
```
output:
```
no
```
# 3: hide show clone input 103 days 1 hour ago Success

result: Success time: 0.02s memory: 4112 kB returned value: 0
input:
```
134
12
```
output:
```
yes
```
# 2: hide show clone input 103 days 1 hour ago Success

result: Success time: 0.01s memory: 4112 kB returned value: 0
input:
```
13
25
```
output:
```
no
```
# 1: hide show clone input 103 days 1 hour ago Runtime error

result: Runtime error time: 0.01s memory: 4112 kB signal: -1

input: no

output: no
stderr:
```
./prog: attempt to read past end of Input (error #454 at 804a063)
```

UsernamePassword

Username
Password