bzoj 1192: [HNOI2006]鬼谷子的钱袋

最新推荐文章于 2020-01-13 20:23:43 发布

转载最新推荐文章于 2020-01-13 20:23:43 发布 · 44 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xydddd/p/5240469.html

本文介绍了一个使用Pascal语言实现的二进制分解算法。该算法通过递减的方式将一个正整数逐步拆分为多个二进制位表示的数值，并记录下每次拆分的结果。最后输出拆分操作的总次数。

 1 program kkul;
 2 var a:array[0..32]of longint;
 3     n,i,j,k,m:longint;
 4     kg:boolean;
 5 begin
 6   read(n);
 7   while n>0 do
 8     begin
 9       inc(m);
10       a[m]:=n div 2;
11       if n mod 2<>0
12         then inc(a[m]);
13       n:=n-a[m];
14     end;
15   writeln(m);
16 end.