двузначные числа в десятичной системе: от 10 до 99 10 переводим в двоичное 1010 99 переводим в двоичное 1100011 двузначные числа в двоичной системе: от 1010 до 1100011 от 4 до 7 битов ответ: каждое двухзначное число несет информацию от 4 до 7 бит
program Program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin result := 0; write('Введите значение N (не более 255): '); readln(n); for i := 1 to n do begin write('Введите значение ', i, ' элемента массива: '); readln(array1[i]); end; begin writeln('Массив, размером - ', n, ' элементов(а):'); for i := 1 to n do write(array1[i], ' '); writeln; end; for i:=1 to n do begin k := 0; for j:=1 to n do if array1[i] = array1[j] then k := k + 1; if k = 1 then result := result + array1[i]; end; writeln('Сумма уникальных элементов массива = ', result); end.
1. Начало 2. Нажимаешь сохранить как 3. Выбираешь папку в который тебе надо сохранить рисунок 4. Пишешь название рисунка 5. Нажимаешь "сохранить" 6. Конец
от 10 до 99
10 переводим в двоичное 1010
99 переводим в двоичное 1100011
двузначные числа в двоичной системе:
от 1010 до 1100011
от 4 до 7 битов
ответ: каждое двухзначное число несет информацию от 4 до 7 бит