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

На одной улице стоят в ряд 4 дома, в которых живут 4 человека: семен, николай, артур и роман. известно, что каждый из них владеет ровно одной профессией: врач, художник, егерь и тренер, но неизвестно, кто какой, и неизвестно, кто в каком доме живет. однако известно, что: 1. егерь живет левее тренера; 2. врач живет правее тренера; 3. художник живет не с краю; 4. егерь живет рядом с художником; 5. роман живет рядом с тренером 6. семен – не егерь; 7. артур живет правее романа; 8. артур живет не рядом с романом. выясните, кто какой профессии и кто где живет. для решения можно использовать таблицу..

👇
Ответ:
Gdyxtk
Gdyxtk
08.04.2022
Егерь - е, художник - х, т - тренер, в - врач, с - Семен, р - Роман, н - Николай, а - Артур.
Итак. Так как е левее т, а в - правее, то т живет не с краю, а, поскольку х тоже живет не с краю, то и е, и в живут с краю, е - с левого, а в - с правого, соответственно условиям 1 и 2. Е живет рядом с х, из этого следует, что х справа от е и слева от т, так как х не может быть слева от е, потому что е живет с левого краю. Т, соответственно, живет в последнем оставшемся доме, то есть между х и в. Р живет рядом с т, то есть, р - не т и живет либо слева от т, либо справа. А живет правее р, что означает, что р живет в доме, что слева от т. Также а живет не рядом с р, то есть в крайнем справа доме. С - не егерь, значит, он живет в любом доме, кроме крайнего левого, но в домах слева и справа от т уже живут р и а, то есть с живет в доме т (Семен - тренер). Ну и оставшийся дом, человек и профессия - Николай, егерь, крайний слева дом.
Итоги: Первый дом - Николай, егерь.
Второй дом - Роман, художник.
Третий дом - Семен, тренер.
Четвертый дом - Артур, врач.
4,5(43 оценок)
Открыть все ответы
Ответ:
lerka160
lerka160
08.04.2022

Дефрагментация диска.

Жёсткий диск компьютера содержит записанные файлы, деля их на фрагменты, и храня в отдельных кластерах, иногда располагающихся далеко друг от друга.

Фрагментация — это разделение файла и разбрасывание его элементов по разным кластерам. Поэтому когда файлов становится много, компьютер начинает работать медленно. Для решения этой проблемы существуют программы для дефрагментации диска. Дефрагментация — это процесс собирания фрагментов файла в соседних кластерах. Дефрагментацию жёстких дисков можно выполнить  в операционной системе Windows. Для этого нужно открыть меню «свойства» жёсткого диска и на вкладке «Сервис» нажать кнопку «Выполнить дефрагментацию». Сначала программа выполнит анализ дискового пространство. Дефрагментация может длиться довольно долго.

Также дефрагментацию можно сделать в бесплатной программе Auslogics Disk Defrag Free

Архивация файлов.

Архивацию файлов можно выполнить в программах WinRAR и 7ZIP.

Эти программы нужны, чтобы распаковать архивированные файлы и сжать большие по объёму. А также множество больших файлов превратить в один небольшой файл — архив.

Эти программы нужны, чтобы сэкономить дисковое пространство. Большие и редкоиспользуемые файлы можно сжать и хранить в виде архива.

4,8(41 оценок)
Ответ:
henrycarbone
henrycarbone
08.04.2022
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

type
  CheckBalls=class
 
  private
   
    ad:array of real; // диаметры шариков
    ap:array of real; // веса шариков
    etD:=24.0; // эталонный диаметр
    derD:=2.0; // эталонное предельное отклонение
    etP:=74.0; // эталонный вес
    derP:=3.0; // эталонное предельное отклонение
   
    procedure CheckBall(m:integer);
    // проверка шарика с указанным номером
    begin
      Write('Шарик № ',m,': диаметр - ');
      if Abs(aD[m-1]-etD)<=derD then Write('норма')
      else Write('брак');
      Write(', вес - ');
      if Abs(aP[m-1]-etP)<=derP then Writeln('норма')
      else Writeln('брак')
    end;
  
 
  public
 
    constructor(ma,mp:array of real);
    begin
      ad:=Copy(ma);
      ap:=Copy(mp);
    end;
   
    procedure CheckAllBalls;
    begin
      for var i:=1 to ad.Length do CheckBall(i)
    end;
 
end;

begin
  var n:=120; // число шариков
  var a:=SeqRandom(n,200,280).Select(t->t/10).ToArray;
  var b:=SeqRandom(n,700,800).Select(t->t/10).ToArray;
  Writeln('Параметры шариков (диаметр,вес):');
  a.Zip(b,(p,q)->(p,q)).Println;
  Writeln('Результаты контроля:');
  var oL:=new CheckBalls(a,b);
  oL.CheckAllBalls
end.
4,8(5 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ