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

В чем появляется сходство и различие в толковании свойств достоверность и адекватность информации. Приведите не менее 2-х примеров.
2. Приведите 3 примера неактуальной, но достоверной информации из области математики.
3. Дайте определение такому свойству информации, как адекватность и приведите по 2 примера адекватной и неадекватной информации из физики.

👇
Открыть все ответы
Ответ:
Danielriisna13
Danielriisna13
02.05.2020
Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do  
   for j := 1 to n do      
       begin           
           read(a[i,j]);           
           if (a[i,j] > max) then              
               max := a[i,j];           
          if (a[i,j] < min) then             
               min := a[i,j];      
        end;      
 writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);End.
4,8(62 оценок)
Ответ:
ryenasssss
ryenasssss
02.05.2020
Const n=7;
Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
 T:array[1..7] of integer;
 D: array[1..7] of real;
 i,k:byte;
 s:integer;
 SR:real;
begin
 S:=0;
 randomize;
 Writeln('Температура в течение недели:');
 for i:=1 to n do
  begin
   T[i]:=random(50)-25;
   S:=S+T[i];
   write(T[i]:4);
  end;
 writeln;
SR:=S/n;
writeln('Средняя температура: ',SR:3:2);
k:=0;
Writeln('Температуры ниже средней в дни : ');
for i:=1 to n do
 if T[i]<SR then
  begin
     write(Day[i]:15);
     k:=k+1;
  end;
writeln;
writeln('Всего ',K,' дня(ей)');
writeln('Массив отклонений:');
for i:=1 to n do
 begin
  D[i]:=T[i]-SR;
  write(d[i]:8:3);
 end;
end.
4,4(89 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ