Найти количество едениц в двоичной записи заданного числа. Входные данные: Во входном файле содержится единственное целое число n (0 меньше =n меньше =2000000). Выходные данные: Выходной файл должен содержать одно число - колич...
Найти количество едениц в двоичной записи заданного числа.
Входные данные:
Во входном файле содержится единственное целое число n (0<=n<=2000000).
Выходные данные:
Выходной файл должен содержать одно число - количество двоичных едениц в записи числа n.
#| input.txt| output.txt|
1| 5| 2|
2| 16| 1|
3| 121| 5|
Гость
Ответ(ы) на вопрос:
Гостьvar
n: longint;
k: integer;
Fin, Fout: Text;
begin
Assign(Fin, 'input.txt');
Reset(Fin);
Assign(Fout, 'output.txt');
Rewrite(Fout);
while not Eof(Fin) do
begin
Readln(Fin, n);
k := 0;
while n > 1 do
begin
k := k + (n mod 2);
n := n div 2
end;
k := k + n;
Writeln(Fout,k)
end;
Close(Fin);
Close(Fout)
end.
Не нашли ответ?
Похожие вопросы