您的位置:首页 > 其它

JZOJ__Day 5:【普及模拟】num

2017-07-10 15:52 218 查看
题目描述

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。

分析

这道题分为三种情况:

1:n为质数,writeln(1); write(0);

2:n为两个质数的乘积(两个质数可以相等),write(2)

3:n很复杂,则输出n最小的两个质因数(可以相等,即n=k*t*t, t为此质因数)的积

程序:

var
i:longint;
j,k,n,m,ans,num:int64;

procedure aa;
begin
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;

if trunc(sqrt(n))=sqrt(n) then inc(num);
n:=m;
if num=0 then
begin
writeln(1);
writeln(0);
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);
aa;
close(input);
close(output);
end.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: