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

Я дам сайт там задание можите и сайтом отправить можите написать

15 болов

👇
Открыть все ответы
Ответ:
MisterPOR
MisterPOR
02.10.2020
1. c) Информационное пространство - это все, откуда пользователь может хотя бы что-то прочитать
2.  с). Во-первых, частота измеряется в герцах, а не в каких-то битах или байтах - это мы знаем еще из физики. Во-вторых, дискретизация - это пересчет уровня сигнала в некие фиксированные уровни, т.е. он связан с измерением величины сигнала.
3. б) Есть понятие "иерархическая файловая система", когда файлы одного уровня "вкладываются" в папку вышележащего уровня и это вложение многократно повторяется. Ближе всего к этому понятию ответ б)
4. д) Управление связано с передачей информации управляемому объекту. Но чтобы управлять, надо получать от этого объекта информацию и каким-то образом её обрабатывать, принимая некоторые решения. Хранить эту информацию надо лишь короткое время. Для примера: управление автомобилем. Водитель перед перекрестком смотрит по сторонам и принимает решение об управлении автомобилем. Но, проехав перекресток, он уже не думает о том, как его проезжал (если не брать в расчет присущие человеку эмоции).
4,7(34 оценок)
Ответ:
Lizavladimir07
Lizavladimir07
02.10.2020
Const
  mm = 20;

var
  a: array[1..mm, 1..mm] of integer;
  i, j, m, s: integer;

begin
  Write('Введите число строк (столбцов) матрицы: ');
  Readln(m);
  Randomize;
  Writeln(#13#10, 'Исходная матрица');
  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(99) + 1; { числа 1..99 }
      Write(a[i, j]:3)
    end;
    Writeln
  end;
  Writeln('*** Главная диагональ ***');
  for i := 1 to m do Write(a[i, i]:3);
  Writeln;
  Writeln('*** Побочная диагональ ***');
  for i := 1 to m do Write(a[i, m - i + 1]:3);
  Writeln;
  Write('Сумма четных элементов по периметру равна ');
  s := 0;
  for j := 1 to m do
    if a[1, j] mod 2 = 0 then s := s + a[1, j];
  for j := 1 to m do
    if a[m, j] mod 2 = 0 then s := s + a[m, j];
  for i := 2 to m-1 do
    if a[i, 1] mod 2 = 0 then s := s + a[i, 1];
  for i := 2 to m-1 do
    if a[i, m] mod 2 = 0 then s := s + a[i, m];
  Writeln(s)
end.

Тестовое решение:

Введите число строк (столбцов) матрицы: 10

Исходная матрица
 12 81 22 55 45 97 37 95 33 84
  4 40 77 85 20 15 40 41 64 16
 17 72 42 32 85 94  7 39 65 46
 22 23 58 69 53 40 65 49 70 20
 90 62 26 60 53 13 19  2 21 31
 50 55  8 29 26 39 40 89 70 51
 91 98 31 86 62 80 81  9 32 79
 49 90 71 44 26 55 46 81 79 73
 75  5 18 34 96 67 16 29 43 15
  1 76 78 19 28 91 31 39 98 73
*** Главная диагональ ***
 12 40 42 69 53 39 81 81 43 73
*** Побочная диагональ ***
 84 64 39 65 13 26 86 71  5  1
Сумма четных элементов по периметру равна 646
4,6(82 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ