Информатика, вопрос задал stecz97 , 10 лет назад

Составить алгоритм и программу для подсчета количества нулей в десятичной записи целого числа.

Ответы на вопрос

Ответил fatukah
0
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.
Новые вопросы