Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test16
program test16; {Подсчёт количества единичных битов в десятичном числе от 0 до 15} var a, s : integer; begin { s := 0; // обнуляем счётчик a:=10; 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; a:=110; {for example put here any integer} while a <> 0 do begin s := s + a mod 2;{get sum of digit "1"} write(a mod 2) ; a := a div 2; end; writeln ; writeln (s); {display sum of digit "1"} end.
run
|
edit
|
history
|
help
0
f1
Test 1
Zadanie 4
Pascal triangle
Busquedad Pascal
TimeDemo
practica 11 ejercicio 6 BETA
ANDRESSA LIMA NEPOMUCENO 600624624
ahoj
города