1985 год выпуска, переводим и получаем:
110011000101
Ответ: 6 единиц
Составной оператор - это скобки begin...end (в С образных языках для это используются реальные скобки {}) которые позволяют объединить несколько команд под одним оператором
if a > b then begin
с:=1;
d:=2;
end
else begin
c:=3;
d:=4;
end
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
При использовании 64-символьного алфавита на 1 символ необходимо log(2)64=6 бит.
На весь учебник:
80*512*6 бит=80*512*6/8 байт = 10*512*6/1024 Кбайт = 30 Кбайт
<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>