在纪中的第五天，2017-7-11 总结：

1. 【2017.7.10普及】权势二进制
   (File IO): input:a.in output:a.out
   时间限制: 1000 ms 空间限制: 262144 KB 具体限制

题目描述

一个十进制整数被叫做权势二进制，当他的十进制表示的时候只由0或1组成。例如0，1，101，110011都是权势二进制而2，12，900不是。
当给定一个n的时候，计算一下最少要多少个权势二进制相加才能得到n。

输入

k组测试数据。
第1行给出一个整数k (1<=k<=10)
第2到k+1行每行一个整数n(1<=n<=1000000)

输出

输出答案占k行。
每行为每个n的答案。

样例输入

1
9

样例输出

9

数据范围限制

这题嘛，我不会，抄标的，啦啦啦。

假的假的，不纯在的。

其实这题就是暴力枚举？
不清楚。。。
（这样写真的好吗，会不会评为垃圾题解。。。。）

var s1,lastlen,len,y,ans,s,i,j,k,n,m:longint;
x:string;

procedure aa;
var
i,j:longint;
begin
val(x,y);
repeat
s:=0; inc(ans);

str(y,x);for j:=1 to length(x) do  if (x[j]='1') or (x[j]='0') then      begin        s:=s*10+ord(x[j])-48;      end      else s:=s*10+1;y:=y-s;

until y=0;

end;

begin
assign(input,’a.in’); reset(input);
assign(output,’a.out’); rewrite(output);

readln(n);
for i:=1 to n do
begin
ans:=0;

  readln(x);  if x<>'0' then begin  aa;  writeln(ans);  end else    begin      writeln(0);    end;end;

close(input);
close(output);
end.

1. 【2017.7.10普及】num
   (File IO): input:num.in output:num.out
   时间限制: 1000 ms 空间限制: 262144 KB 具体限制
   Goto ProblemSet

题目描述

   KC邀请他的两个小弟K和C玩起了数字游戏。游戏是K和C轮流操作进行的，K为先手。KC会先给定一个数字Q，每次操作玩家必须写出当前数字的一个因数来代替当前数字，但是这个因数不能是1和它本身。例如当前数字为6，那么可以用2,3来代替，但是1和6就不行。现在规定第一个没有数字可以写出的玩家为胜者。K在已知Q的情况，想知道自己作为先手能不能胜利，若能胜利，那么第一次写出的可以制胜的最小数字是多少呢？整个游戏过程我们认为K和C用的都是最优策略。

输入

只包括一个正整数Q

输出

第一行是1或2,1表示K能胜利，2表示C能胜利。
若K能胜利，则在第二行输出第一次写出的可以制胜的最小数字，若是第一次就无法写出数字，则认为第一次写出的可以制胜的最小数字为0。
说明：若C能胜利，不用输出第二行，输出2即可。

样例输入

6

样例输出

2

数据范围限制

对于30%的数据，Q<=50; 对于100%的数据，Q<=10^13。

算是质因数分解吧，不，应该算是分解质因数。。。。。
（今天的我很尴尬，考场爆0,一个小于号值100分。。。。）

var
s,ans,n,m,k,num:int64;
i,j:longint;
procedure aa;
begin

if trunc(sqrt(n))=sqrt(n) then inc(num);n:=m;if num=0 thenbegin    writeln(1);    writeln(0);    close(input);    close(output);    halt;end elseif num=1 then writeln(2) elsebegin    ans:=1;    for i:=2 to trunc(sqrt(n)) do    begin        k:=0;        while n mod i=0 do        begin            inc(k);            n:=n div i;            ans:=ans*i;            if ans<>i then            begin                writeln(1);                writeln(ans);                halt;            end;        end;    end;end;

end;

begin
assign(input,’num.in’);
reset(input);
assign(output,’num.out’);
rewrite(output);

readln(n);
m:=n;
for i:=2 to trunc(sqrt(n)-0.1) do
while n mod i=0 do
begin
n:=n div i;
num:=num+1;
end;

  aa;close(input);close(output);

end.