М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
valya27081986
valya27081986
02.06.2020 12:27 •  Информатика

А)информация понятна , если она - б) сообщение может пополнить знания человека ,если- !

👇
Ответ:
viteralinap06rap
viteralinap06rap
02.06.2020
А) однозначно интерпретируется, увязывается с базой знаний т.е не противоречит, несет полезный смысл т.е получатель может ей воспользоваться.
б) его содержимое понятно для человека и он физически может им воспользоваться или сможет или мог ранее но не знал. Важно чтобы информация сообщения проиндексировалась мозгом, увязалась с уже имеющимися данными. на неё мозгу необходимо составить как можно больше ссылок и связей с другими данными, чтобы человек воспользовался этой информацией в будущем и в разных ситуациях а не  не только в данной или подразумеваемой сообщением
4,8(17 оценок)
Открыть все ответы
Ответ:
kacok2
kacok2
02.06.2020
Такие задания нужно решать с конца, команды будут обратные: раздели на 2, вычесть 3.
1. Берём число 47, видим, что без остатка на 2 его разделить не получится, поэтому вычитаем 3. Получаем число 44. Мы использовали команду 1.
2. Видим, что теперь число 44 можно разделить на 2, делим, получаем 22. Мы использовали команду 2.
3. Число опять делится на 2, делим, получаем 11. Команда 2.
4. 11 не делится на 2, вычитаем 3, получаем 8. Команда 1, и т.д.
5. 8/2=4 . 2
6. 4 - 3 = 1. 1
Как раз у нас получилось 6 действий. Т.к. мы использовали обратные команды, то записываем их обратном порядке.
ответ: 121221,
4,7(98 оценок)
Ответ:
zhenyakrestins
zhenyakrestins
02.06.2020
// PascalABC.NET 3.0, сборка 1128
begin
  var k:=ReadInteger('Укажите номер записи k:');
  var a:=ReadLines('T1.txt').Select(x->Length(x)).
         Where(x->x<>0).ToArray;
  var n:=a.Length;
  if k>n then Writeln('В файле записей меньше, чем ',k)
  else Writeln('Сумма равна ',a.Min+a[n-k+1])
end.

А теперь "школьный вариант"
// PascalABC.NET 3.0, сборка 1128
var
  t:text;
  min,l,m,n,k:integer;
  s:string;
begin
  k:=2; // вторая от конца запись
  Assign(t,'T1.txt'); Reset(t);
  min:=1000; m:=0;
  while not Eof(t) do begin
    ReadLn(t,s); Inc(m);
    l:=Length(s);
    if (l>0) and (l<min) then min:=l
    end;
  Close(t); Reset(t);
  k:=m-k+1;
  if k<1 then Writeln('В файле нет стольких строк')
  else begin
    m:=0;
    while m<>k do begin Readln(t,s); Inc(m) end;
    Writeln('Сумма равна ',min+Length(s))
    end;
  Close(t)
end.
4,4(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ