Счетчик это "с",его значения:
30,25,20,15,10
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>
<span>Рассмотрим, например, карандаш. Он состоит из деревянного корпуса и графитового стержня. Графитовый стержень — это существенный элемент карандаша, так как он определяет его главное назначение — писать, рисовать, то есть оставлять след на бумаге. Корпус служит для того, чтобы не ломался хрупкий графитовый стержень. Корпус — это вспомогательный элемент. Он может быть сделан не из дерева, а из другого материала (например, из пластмассы).</span>
128000/(6*60)=<span>
355,5556бит/8/1024=</span><span>
<span>0,043403 Кбайта</span></span>
Procedure PrintMatrix(matrix : array[,] of integer);
begin
matrix.Println;
end;