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

最新推荐文章于 2020-01-14 16:30:16 发布

原创最新推荐文章于 2020-01-14 16:30:16 发布 · 457 阅读

0 ·

CC 4.0 BY-SA版权

纪中练习专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种特殊的二进制数——权势二进制，并探讨了如何通过最少数量的权势二进制数相加来构成任意整数n的方法。此外，还讨论了一个关于数字游戏的问题，即在给定一个数字Q的情况下，如何判断先手能否获胜，并找到获胜策略中第一次使用的最小数字。

【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

样例输出

数据范围限制

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

假的假的，不纯在的。

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

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即可。

样例输入

样例输出

数据范围限制

对于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;