| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1073
| {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+} {$M 65520,0,655360} Var I,J,N,R: LongInt; Begin Readln(N); R:=4; For I:=1 to Trunc(Sqrt(N)) do For J:=1 to Trunc(Sqrt(N)) do If (N-I*I-J*J>0) and (Int(Sqrt(N-I*I-J*J))=Sqrt(N-I*I-J*J)) then R:=3; For I:=1 to Trunc(Sqrt(N)) do If (N-I*I>0) and (Int(Sqrt(N-I*I))=Sqrt(N-I*I)) then R:=2; If Int(Sqrt(N))=Sqrt(N) then R:=1; Writeln(R); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 778 |