Ideone.com | Online Pascal Compiler & Debugging Tool

language:	Pascal (gpc) (gpc 20070904)
date:	107 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
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N mod 7 = 0) and (N mod 6 <> 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 107 days 1 hour ago Success

result: Success time: 0.01s memory: 4112 kB returned value: 0
input:
```
168
```
output:
```
no
```
# 3: hide show clone input 107 days 1 hour ago Success

result: Success time: 0.01s memory: 4112 kB returned value: 0
input:
```
140
```
output:
```
yes
```
# 2: hide show clone input 107 days 1 hour ago Success

result: Success time: 0.01s memory: 4112 kB returned value: 0
input:
```
42
```
output:
```
no
```
# 1: hide show clone input 107 days 1 hour ago Success

result: Success time: 0.01s memory: 4112 kB returned value: 0
input:
```
700
```
output:
```
yes
```

UsernamePassword

Username
Password