Он используется для обработки файлов
931₁₀ = 1110100011₂
Очевидно, что минимальное число должно содержать минимальное количество значащих цифр. У нас есть "место", где идут три нуля подряд, следовательно, если эти три нуля сделать ведущими, в числе станет на три значащих разряда меньше. Пять циклических сдвигов дадут нам число
0001111101₂ или просто 1111101₂ = 125₁₀
Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while (a<>0) do
begin
if(a mod 5=0) or (a mod 7=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.