Bài 14 Phân tích thành số bước bằng cách tăng lên 1 hoặc tăng gấp đôi hoặc trừ đi 1 hoặc chia cho 2 vd n=6 kq 3 giải thích B1: 1 tăng lên 1 là 2 B2: 2 tăng lên 1 là 3 B3: 3 tăng 2 lần là 6 Kết thúc 3 bước ghi các bước ra luôn làm bằng pascal

uses crt;
var n,dem:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  dem:=0;
  while n<>1do
        begin
         if(n mod 2=0)then
                begin
                 n:=n div 2;
                 inc(dem);
                end else
                        begin
                         n:=n-1;
                         inc(dem);
                        end;
        end;
  write('co ',dem,' buoc');
 readln;
end

uses crt;
var n,dem:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  dem:=0;
  while n<>1do
        begin
         if(n mod 2=0)then
                begin
                 n:=n div 2;
                 inc(dem);
                end else
                        begin
                         n:=n-1;
                         inc(dem);
                        end;
        end;
  write('co ',dem,' buoc');
 readln;
end.