Дано число. Представити його у двійковій системі числення та підрахувати кількість одиниць у даному числі.
Реалізувати дану задачу можна за допомогою двох опереаторів mod (0 чи 1) та div для переходу до обчислення наступної цифри числа. Алгоритм представляємо у вигляді циклу з післяумовою а=0.
program dv_1;uses crt;
var a,b,n,count:integer;
dv:array [1..100] of real;
begin
writeln('Ââåä³òü ÷èñëî:');
read(a);
repeat
b:=a mod 2;
if b=1 then
begin
count:=count+1;
n:=n+1;
dv[n]:=1;
end
else
begin
n:=n+1;
dv[n]:=0;
end;
a:=a div 2;
until a=0;
writeln('');
repeat
write(dv[n]);
n:=n-1;
until n=0;
writeln('');
writeln( count);
repeat until keypressed;
end.
Немає коментарів:
Дописати коментар