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]:=2;
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

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 3:   hide show   clone   input   104 days 1 hour ago    Success

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

  input:

  4

  output:

  8
  
• # 2:   hide show   clone   input   104 days 1 hour ago    Success

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

  input:

  1

  output:

  2
  
• # 1:   hide show   clone   input   104 days 1 hour ago    Success

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

  input: no
  output:

  0