| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1083
| Var N,K,T,M: LongInt; C: Char; Begin Read(N); Read(C,C); K:=0; While C='!' do begin Read(C); Inc(K); End; T:=N; M:=T; T:=T-K; While T>0 do begin M:=M*T; T:=T-K; End; Writeln(M); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 836 |