Составить алгоритм и программу для подсчета количества нулей в десятичной записи целого числа.
Составить алгоритм и программу для подсчета количества нулей в десятичной записи целого числа.
Гость
Ответ(ы) на вопрос:
Гость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);
end.
Не нашли ответ?
Похожие вопросы