Выполните следующие вычисления над 8-битными числами с дополнением до двух: 00101101+01101111; 01100111+01101010; 11111111+11111111; 00000000–11111111; 11110111–11110111. преобразуйте эти числа в десятичные и выполните указанные действия. сравните полученные результаты в двоичной и десятичной системах счисления.

122

170

Посмотреть ответы 2

Ответы на вопрос:

helloooo2

Информатика

4,6(87 оценок)

(156_{10}) [/tex]

lmarki2003

Информатика

4,6(60 оценок)

Проверено, работает на паскаль авс: program rabota_s_massivom; uses crt; label metka; const n=30; var m: array[1..n] of integer; i,k,s,kmax,reserve: integer; begin for i: =1 to n do begin write('введите ',i,'-й элемент: '); readln(m[i]); end; writeln('массив: '); for i: =1 to n do begin write(m[i],' '); end; k: =1; {число элементов в текущей последовательности. изначально считаем, что последовательность состоит из одного (первого) элемента} {ищем первый нечётный элемент: } repeat reserve: =reserve+1; until (m[reserve] mod 2 = 1) or (reserve = 30); writeln(reserve); if (m[reserve] mod 2 = 0) and (reserve = 30) then begin writeln('все числа чётные. искомая последовательность не существует'); goto metka; end; s: =m[reserve]; {сумма элементов текущей последовательности пока что равна первому нечётному элементу} kmax: =0; {наибольшая длина последовательности} for i: =reserve+1 to n do {перебираем все элементы, начиная с первого нечётного} begin if (m[i] mod 2 = 1) then {если текущее число всё ещё нечетно} begin s: =s+m[i]; {увеличиваем сумму последовательности} k: =k+1 {увеличиваем счётчик длины последовательности} end else {если встретилось четное число} begin if k> kmax then {проверяем, не является ли полученная последовательность длиннее нашего максимума} begin {если да: } kmax: =k; {запоминаем новую длину последовательности} reserve: =s {запоминаем сумму её элементов} end; k: =0; {устанавливаем длину новой последовательности равной 0} s: =0 {сумма элементов этой последовательности тоже пока что = 0} end; end; if k> kmax then {если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум} begin kmax: =k; reserve: =s end; writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов'); writeln('и сумма этой последовательности равна ',reserve); metka: end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.