усман14
27.07.2021 04:58

1. сколько компьютеров можно установить в помещении с площадью 100 кв. м. высотой 3,5 м, не нарушая санитарных норм?
1. 17
2. 16
3. 15
4. 14
5. произвольное количество, по согласованию с администрацией.
2. с какого времени беременным женщинам не разрешается работа за компьютером?
1. на усмотрение работника.
2. по согласованию с профсоюзной организации.
3. с момента обнаружения беременности
4. за два месяца до рождения ребенка.
5. правильного ответа нет.
3. экран монитора должен находиться от глаз пользователя на оптимальном расстоянии…
1. 600 – 700 см.
2. не более 1 метра.
3. 400 – 800 см.
4. не менее 1 метра.
5. правильные ответы 1 и 2.
4. ширина поверхности стола, оснащенного принтером…
1. должна соответствовать ширине принтера.
2. значения не имеет.
3. должна быть не более 1200 мм.
4. должна быть не менее 1000 мм.
5. должна быть не менее 1200 мм.
5. непрерывная длительность занятий за компьютером для учащихся i классов…
1. не должна превышать 15 мин.
2. не должна превышать 10 мин.
3. не должна превышать 20 мин.
4. может продолжаться произвольно.
5. не должна превышать 5 мин.
6. выберите неправильное утверждение.
1. запрещается использование одной пэвм для двух и более детей.
2. женщины, в период кормления ребенка грудью к работе за эвм не допускаются.
3. к работе за эвм допускаются лица, не имеющие медицинских противопоказаний.
4. помещение с эвм должно быть оснащено аптечкой первой и углекислотными огнетушителями.
5. все утверждения неправильные.
7. запрещается включать эвм…
1. без принтера.
2. без мыши.
3. без разрешения учителя.
4. без крышки.
5. правильные ответы 3 и 4.
8. во время работы запрещается…
1. прикасаться к экрану компьютера.
2. трогать провода.
3. перестыковывать разъемы.
4. закрывать вентиляционные отверстия.
5. утверждения 1 - 4 верные.
9. во время работы разрешается…
1. слушать музыку.
2. пить чай.
3. перемещение по классу.
4. часто включать и выключать эвм.
5. оставлять эвм без наблюдения.
10. расстояние между боковыми поверхностями мониторов…
1. должно быть не менее 1,2 м.
2. может быть произвольным.
3. должно быть не менее 1 м.
4. должно быть не менее 2 м.
5. правильного ответа нет.
11. рабочие места с эвм по отношению к световым проемам должны
располагаться так чтобы…
1. свет падал сбоку, преимущественно справа.
2. свет падал сзади.
3. свет падал спереди.
4. свет падал сбоку, преимущественно слева.
5. все ответы правильные.
12. шумное оборудование (матричные принтеры) уровни шума которого превышают допустимые нормы должны…
1. быть выключены.
2. находиться вне помещения.
3. быть накрыты звукопоглащаемым материалом.
4. включаться как можно реже.
5. включаться по одному.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
linakovtunenko1
07.06.2021 18:35
{Attention! Это самое отвратное моё решение на Знаниях. Запаситесь валерьянкой перед прочтением кода}
//Pascal ABC.NET 3.1 сборка 1219

Type
 ty=record
 valu:integer;
 count:integer;
end;

Const
 n=3;

 Var
 ma:array[1..n,1..n] of integer;
 tyar:array of ty;
 se:set of integer;
 i,j,z,k,MaxCount:integer;
begin
 randomize;
 se:=[];
 k:=0;
 MaxCount:=integer.MinValue;
 writeln('Matrix:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(-10,10);
     write(ma[i,j]:4);
     if not(ma[i,j] in se) then
       begin
       inc(k);
       setlength(tyar,k+1);
       tyar[k].valu:=ma[i,j];
       tyar[k].count:=1;
       se:=se+[ma[i,j]];
      end
     else
       for z:=1 to k do {O(n^3) в худшем случае - нормальные люди ненавидят это}
        if tyar[z].valu=ma[i,j] then
         begin
          inc(tyar[z].count);
          break;
         end;
    end;
   writeln;
  end;
  for i:=1 to k do
  if MaxCount<tyar[i].count then MaxCount:=tyar[i].count;
  writeln('Res:');
  for i:=1 to k do  if tyar[i].count=MaxCount then writeln(tyar[i].valu);
end.

Пример работы программы:
Matrix:
  -7  -2  10
   8   0  -2
   6  10   1
Res:
-2
10
0,0(0 оценок)
Ответ:
sergiykorolkov8
07.06.2021 18:35
Можно воспользоваться преимуществами, которые дает Pascal 3.1 и программа будет достаточно короткой.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var m:=ReadInteger('m=');
  var c:=MatrixRandom(m,m,10,99);
  var d:=new Dictionary<integer,integer>;
  for var i:=0 to m-1 do begin
    for var j:=0 to m-1 do Print(c[i,j]);
    Println;
    end;
  foreach var e in c do d[e]:=d.Get(e)+1;
  var q:=d.OrderByDescending(x->x.Value);
  var p:=q.First.Value;
  if p=1 then Writeln('Все значения в массиве уникальны')
  else begin
    var s:=q.TakeWhile(x->x.Value=p).Select(x->x.Key);  
    Write('Наиболее часто (',p,') ');
    if s.Count=1 then begin
      Print('встречается значение');
      s.Print
      end
    else begin
      Print('встречаются значения:');
      s.Println
      end
    end
end.

Тестовые решения

m= 3
76 34 96
47 99 79
94 33 11
Все значения в массиве уникальны

m= 5
43 19 46 70 51
73 46 50 18 25
19 10 32 83 81
32 46 81 23 84
27 91 84 79 28
Наиболее часто (3) встречается значение 46

m= 10
89 11 84 46 18 68 56 13 28 34
86 25 84 34 51 13 37 41 26 23
33 74 87 21 11 42 61 42 32 65
34 37 47 23 24 20 61 14 93 31
71 27 19 31 81 94 38 87 74 83
19 74 81 28 70 24 23 72 44 76
17 24 80 62 10 58 78 71 19 40
52 33 48 94 51 16 64 65 40 16
13 74 68 48 56 60 56 28 53 99
97 88 69 27 23 57 46 57 31 33
Наиболее часто (4) встречаются значения: 23 74
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота