| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1068
| {A} Var N:LongInt; Begin Read(N); If N>=1 then Write((n*(n+1)) div 2) else Write(-((-n)*(1-n)) div 2+1) End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 1048 |