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

Конспект на тему информационный процесс в обществе

👇
Ответ:
kotuk333
kotuk333
26.10.2021
В повседневной жизни человек все время сталкивается с различными процессами:смена времен года, приготовление еды, пошив костюма, выпечка хлеба, написание сочинения и т.д. Одни процессы протекают в живой природе, другие - в обществе человека. Некоторые процессы протекают независимо от влияния человека в других процессах человек принимает активную роль.
В производстве используются технологические процессы, которые могут существенно отличаться. Для выпечки хлеба и производства высокоточной техники требуется разный набор составляющих и так же оборудование.
Особую роль в ходе протекания процесса играет информация. демонстрация
С органов чувств люди воспринимают информацию, осмысливают ее и на основе своего опыта, имеющихся знаний, интуиции принимают решения.
Процессы, связанные со сбором, хранением, поиском,обработкой, кодированием и передачей информации, называют информационными процессами. Информационные процессы протекают не только в человеческом обществе, но и в животном и растительном мире.

Переделай немного) удачи
4,7(100 оценок)
Открыть все ответы
Ответ:
Forsenboy
Forsenboy
26.10.2021
ответ: 1909

Var
 s : String;
 n : Integer;
Function IncS(a : String) : String;
Begin
  a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
  If a[Length(a)]>'D' then
    IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
  else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
  Check:=False;
  If (Pos('A',a)>0) then
  Begin
    Delete(a,Pos('A',a),1);
    If (Pos('A',a)>0) then Check:=True;
  end;
end;
Begin
  s:=''; n:=0;
  While s<>'' do
  Begin
  {  Writeln(s);  }
    If Check(s) then Inc(n);
    s:=IncS(s);
  end;
  Writeln(n);
end.
4,4(74 оценок)
Ответ:
KARAZINO
KARAZINO
26.10.2021
ответ: 1909

Var
 s : String;
 n : Integer;
Function IncS(a : String) : String;
Begin
  a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
  If a[Length(a)]>'D' then
    IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
  else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
  Check:=False;
  If (Pos('A',a)>0) then
  Begin
    Delete(a,Pos('A',a),1);
    If (Pos('A',a)>0) then Check:=True;
  end;
end;
Begin
  s:=''; n:=0;
  While s<>'' do
  Begin
  {  Writeln(s);  }
    If Check(s) then Inc(n);
    s:=IncS(s);
  end;
  Writeln(n);
end.
4,4(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ