1)681₁₀ = 1010101001₂
2)7250₁₀ = 1110001010010₂<span>
3)843624</span>₁₀ = <span>11001101111101101000</span>₂
<span>Сканер создаёт цифровую копию изображения объекта.</span>
===== PascalABC.NET =====
begin
var (k, kmax, s) := (1, 0, 1);
var a := ReadInteger;
if a = 0 then
begin
Print(1);
exit
end;
foreach var b in ReadSeqIntegerWhile(p -> p <> 0) do
begin
var sgn := Sign(b - a);
a := b;
if sgn = s then
k += 1
else
begin
if k > kmax then
kmax := k;
(k, s) := (2, sgn)
end
end;
if k > kmax then
kmax := k;
Print(kmax)
end.
8 Бит - 1 Байт
1024 Байт - 1 Килобайт
1024 Килобайт - 1 Мегабайт
1024 Мегабайт - 1 Гагабайт
2 Гигабайта = (1024 Мегабайт * 1024 Килобайт * 1024 Байт * 8 Бит) * 2
2 Гигабайта = 17 179 869 184 Бит