| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1252
| Var D:Array[1..22] of LongInt; K:Array[1..22] of LongInt; N,I,A:LongInt; Begin Read(N); Read(A); Read(D[1]); For I:=2 to N do Read(D[I]); For I:=2 to N do K[I]:=D[I-1] div D[I] - 1; K[1]:=A div D[1]-1; For I:=1 to N do Write(K[I],' '); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 896 |