Number (Standard IO)

最新推荐文章于 2022-02-15 10:28:10 发布

原创最新推荐文章于 2022-02-15 10:28:10 发布 · 517 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Number Standard IO

PASCAL 同时被 3 个专栏收录

190 篇文章

订阅专栏

中山纪念中学的那几天

86 篇文章

订阅专栏

数学知识

25 篇文章

订阅专栏

本文探讨了一种通过特定数学操作使整数变为1000000007倍数的方法。通过定义两种操作（将x变为4x+3和8x+7），文章提出了一种算法来确定达到目标所需的最小步骤。

题意/Description:

给出一个整数，你可以对进行两种操作。
　　1、将x变成4x+3
　　2、将x变成8x+7
　　问，最少通过多少次操作，使得x是1000000007的倍数？

读入/Input：

一行，一个整数x(1<=x<=1000000006)。

输出/Output：

一行，表示最少的操作步数。保证答案不超过10^5。

题解/solution：

画画的时候，发现(4x+3)的3次方等于(8x+7)的二次方。于是就想到它们的一次方是什么......(2x+1)。之后自己做吧。（考完才想到）

代码/Code：

const
  mo=1000000007;
var
  a:int64;
  i:real;
begin
  readln(a);
  while a mod mo<>0 do
    begin
      i:=i+1;
      a:=a*2+1;
      a:=a mod mo;
    end;
  i:=i/3;
  if trunc(i)<>i then writeln(trunc(i)+1)
                 else writeln(trunc(i));
end.