Вбассейне ведется наблюдение за температурой воды. результатом одного измерения является число от +10 до +30, которые записываются при минимально возможного кол-ва бит. было сделано 27 измерений. определите информационный объем всех результатов наблюдения.
function ReadInteger(prompt: string): integer; Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer; Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ' '): sequence of T; Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0); Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
N = 21 (результат измерений от 10 до 30)
N = 2^i
2^i = 21
i = 5 бит
27 * 5 = 135 бит
ответ. 135 бит