===== 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.
Решение во вложении. Не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
Компьютер способен обрабатывать информацию, которую можно превратить в сигналы: числовую, текстовую, графическую, аудио— и видеоинформацию (мультимедиа).
1-8,120, 1459, 623
Остальное пока разбираюсь
N=64 нужно найти i, по формуле N=2 в степени i, подставляем, 64=2 в степени i, отсюда следут что i=6 битам