Указать правильную тройку из ряда: «объект-натурная модель-информационная модель» а) человек – анатомический скелет – медицинская карта б) здание – пенопластовый макет – проект в) земной шар – глобус – карта г) ученик – табель успеваемости – фотография д) самолет – модель из картона – чертежи какие из следующих моделей являются *: а) характеристика главного героя в произведении б) родословное дерево в) правила дорожного движения г) план квартиры д) инструкция по настройке телевизора

Объект - то, что существует вне нас и независимо от нашего сознания, явление внешнего мира.
Модель – это некий заменитель объекта, процесса или явления,  который в определенных условиях может заменить оригинал
Информационные модели представляют объекты или процессы в образной или знаковой форме. Рисунки, фотографии, учебные плакаты .
Вербальные модели – мысленные модели. Используется для передачи мыслей.

1)
Б) Здание – пенопластовый макет – проект
В) Земной шар – глобус – карта
Д) Самолет – модель из картона – чертежи

2)
А) Характеристика главного героя в литературном произведении

Количество информации в сообщении обычно равно количеству бит (округляемому до ближайшего целого с избытком) , которое необходимо для воспроизведения текста сообщения. то есть в сообщении 10101010 информации - 8 бит, в сообщении "погода сегодня будет зимняя, снег не растает, солнце взойдет утром и сядет вечером" - 350 бит (если считать, для простоты, что в языке 32 буквы) . в сообщении e=hν информации, если кодировку ситать юникодом, - 8 байт (64 битa) информации. но вот ценность этих сообщений несопоставима.  но ценность информации не есть величина неизбывная и строго измеряемая для данного сообщения. она всегда зависит от того, кому эта информация предназначена, и от того, что путного можно извлечь из неё, а значит - слабо формализуема. в конце концов, запросто можно представить себе (путь и фантастическую) 

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.