| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1260
| Var A: Array[1..55] of LongInt; N,I: LongInt; Begin Readln(N); a[1]:=1; a[2]:=1; a[3]:=2; For I:=4 to 55 do a[i]:=a[i-1]+a[i-3]+1; Writeln(A[N]); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 823 |