Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Подсчёт количества единичных битов в десятичном числе от 0 до 15
program p; {Подсчёт количества единичных битов в десятичном числе от 0 до 15} var a, s : integer; begin s := 0; // обнуляем счётчик readln (a); s := s + a mod 2; // если число чётное,то остаток 0, иначе остаток 1, его и суммируем write (a mod 2); // для наглядности выводим остаток a := a div 2; // делим число на два s := s + a mod 2; // и от этого числа считаем остаток по модулю 2 write (a mod 2); // для наглядности выводим остаток a := a div 2; // и так далее s := s + a mod 2; write (a mod 2); s := s + a mod 2; writeln (a mod 2); writeln (s); {задача обобщается на любое число, если использовать условный оператор цикла} s := 0; readln (a); while a <> 0 do begin s := s + a mod 2; a := a div 2; end; writeln (s); end.
run
|
edit
|
history
|
help
0
zadanye 2
Test
sp2014e4
Fb password
https://m.facebook.com/akansha.panchal.906?refid=12&ref=opera_speed_dial
practica 7 ejercicio 11
practica 3 ejercicio B5
1046
Genetic Pascal
practica 3 ejercicio 10