В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
тооироь
тооироь
14.03.2022 05:32 •  Информатика

Решить . 1. размер поля в международных шашках - 10х10 клеток. какое минимальное количество битов потребуется для кодирования позиции одной шашки? 2. ультразвуковой датчик измеряет расстояние до препятствия (в сантиметрах, в диапазоне от 0 до 10 м) и сохраняет его в памяти в двоичном коде в виде целого числа. какова минимальная длина двоичного кода, необходимого для кодирования результатов одного измерения? 3. ультразвуковой датчик измеряет температуру процессора (в градусах цельсия, в диапазоне от 20 до 140°c) и сохраняет его в памяти в двоичном коде в виде целого числа. какова минимальная длина двоичного кода необходимого для кодирования результатов одного измерения? 4. в 4 результаты измерений сохраняются каждую секунду. сколько байтов потребуется для хранения измерений в течение часа?

Показать ответ
Ответ:
Greeegooo
Greeegooo
21.11.2022 15:38

Системное  - обеспечивает работу прикладного ПО                                               Прикладное ПО предназначено для непосредственного взаимодействия с пользователем                                                                                                                               Инструмента́льное програ́ммное обеспе́чение — программное обеспечение, предназначенное для использования в ходе проектирования, разработки и сопровождения программ, в отличие от прикладного и системного программного обеспечения.

Объяснение:

0,0(0 оценок)
Ответ:
Rekryt123
Rekryt123
23.01.2022 05:04

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота