题目描述
一个十进制整数被叫做权势二进制，当他的十进制表示的时候只由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.
【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 then begin writeln(1); writeln(0); close(input); close(output); halt; end else if num=1 then writeln(2) else begin 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.
