Олимпиадная задача № 1. Решение.

Решение задачи № 1.

program Olimp_9_1;
var
a,b,c,i,k,sum:integer;
mas: array[0..1000] of integer;
f,g:text;

begin
assign (f,'input.txt');
reset (f);
readln (f,a);
close (f);

k:=0;
repeat
          b:=a mod 2;
          k:=k+1;
          mas[k]:=b;
          c:=a div 2;
          if c>=2 then a:=c;
until c<2;

mas[k+1]:=c;

sum:=0;
For i:=1 to k+1 do
sum:=sum+mas[i];

assign (g,'output.txt');
rewrite (g);
writeln (g,sum);
close (g);
end.