var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
Чтобы закодировать 8 разных символов, для каждого символа выделяются три бита (2 в третьей степени = 8). Отсюда, 120/3=40 символов.
в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
Из всего перечисленного только биты, как и байты, являются единицами измерения количества информации.
и в одном бите обычно 1/8 байта.
установление соотношения между информацией и температурой в рамках информатики невозможно, равно как и длиной, временем,напряжении и т.п.
Var
a: array of integer;
i, n: integer;
begin
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
read(a[i]);
for i := 0 to n - 1 do
begin
if a[i] < 0 then a[i] := 0;
write(a[i], ' ');
end;
end.