| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1295
| {$N+} Var N: LongInt; I,J: LongInt; T,R: LongInt; Begin Readln(N); R:=0; For I:=1 to 4 do begin T:=1; For J:=1 to N do T:=(T*I) mod 1000000; R:=R+T; End; If (R-(R div 1000)*1000)=0 then N:=N div (N-N) else If (R-(R div 100)*100)=0 then Writeln(2) else If (R-(R div 10)*10)=0 then Writeln(1) else Writeln(0); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 959 |