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>
<em><u>В оперативке данные стираются сразу же после выключения питания.Под "долговременной памятью" я так понимаю ты имеешь ввиду память жёсткого диска,там данные хранятся независимо от того есть питание или нет.</u></em>
1) если отвечают Да или нет: 5 вопросов
2) 128 символов=2^7=7бит
5 знаков= 5*7=35бит
249 (10) + 383 (10) = 632 (10)
2755 (10) + 1931 (10) = 4686 (10)
55 (10) + 59 (10) = 104 (10)
Var r,v:real;
begin
write('Рост? '); readln(r);
write('Вес? '); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят')
else writeln('Не принят');
readln
<span>end.</span>