| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1209
| {A} Var K,I,N:LongInt; Begin Read(K); For I:=1 to K do begin Read(N); If ((1+sqrt(1+8.0*N-8))/2)=Round((1+sqrt(1+8.0*N-8))/2) then Write('1') else Write('0'); If I<>K then Write(' '); end; End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 1203 |