Надо расширить квадрат в настройках или на экрана или скачай fraps или bandican
Ответ: 3
Программа подсчета количества нечетных цифр в числе
1 это предпоследние выкамвам
Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
<span>end.</span>