Ideone.com | Online Pascal Compiler & Debugging Tool

language:	Pascal (fpc) (fpc 2.2.0)
date:	101 days 23 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
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=1;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
Writeln(f[n]);
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 101 days 23 hours ago Success

result: Success time: 0.01s memory: 252 kB returned value: 0
input:
```
5
```
output:
```
7
```
# 3: hide show clone input 101 days 23 hours ago Success

result: Success time: 0.01s memory: 252 kB returned value: 0
input:
```
100
```
output:
```
-280408427869713068
```
# 2: hide show clone input 101 days 23 hours ago Success

result: Success time: 0.01s memory: 252 kB returned value: 0
input:
```
4
```
output:
```
4
```
# 1: hide show clone input 101 days 23 hours ago Success

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

input: no
output:
```
0
```

UsernamePassword

Username
Password