ZzzGoshAzzZ
08.04.2021 19:03

Задание 5 1. Используя схему Московского метро https://metrobook.ru/, составить в документе Word схему (граф) движения по заданным адресам (Задача 1, Задача 2) 2. Определить временные интервалы, добавив их в виде надписи на схему. 3. Определить минимальное время. Задача 1 Вы работаете курьером в банке, метро Серпуховская. Сегодня вам нужно доставить документы по следующим адресам и вернуться в банк с заполненным отчетом: 1. ул. Вешняковская, метро Выхино 2. ул. Старая Бассманная, метро Курская 3. ул. Ленская, метро Бабушкинская 4. ул. Свободы, метро Планерная 5. ул. Большая Тульская, метро Тульская Используя интерактивную схему «Метро», составьте схему (граф) движения по заданным адресам, с временными интервалами. Определите минимальное время, которое нужно потратить на доставку всех документов. Задача 2 Вы работаете курьером в крупной строительной компании, метро Полежаевская. Сегодня вам нужно доставить документы по следующим адресам вернуться в компанию с заполненным отчетом: 1. ул. Малая Полянка, метро Полянка 2. ул. Ленская, метро Бабушкинская 3. ул. Свободы, метро Планерная 4. ул. Народного ополчения, метро Октябрьское Поле 5. ул. Большая Тульская, метро Тульская Используя интерактивную схему «Метро», составьте схему (граф) движения по заданным адресам, с временными интервалами. Определите минимальное время, которое нужно потратить на доставку всех документов

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
NeZnAYkA00000000
25.10.2020 18:00
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var sg:=['а','е','и','о','у','ы','э','ю','я'];
  var a:=ReadlnString('Вводите текст: ').ToWords(',','.');
  var r:set of char=[];
  for var i:=0 to a.Length-1 do begin
    var b:=a[i].Where(c->c in sg).GroupBy(t->t).Select(t->(t.Key,t.Count));
    foreach var t in b do
      if t[1]>2 then r+=[t[0]];
    end;
  var s:='';
  foreach var c in r do s+=c;
  s.OrderBy(t->t).Println(',')
end.

Пример
Вводите текст:  Дает,корова,молоко,а,жираф,это,длинношеее,животное.
е,о
0,0(0 оценок)
Ответ:
pigurska
02.06.2022 11:59
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadArrInteger(ReadInteger('n='));
  var p:=x.FindIndex(t->t>10);
  if p=-1 then Writeln('Нет элементов, больших 10')
  else begin
    Write('Ср.арифм.значений до ',x[p],' равно ');
    if p=0 then Writeln('0')
    else Writeln(x[:p].Average);
    var s:=x[p+1:].Where(t->t<0);
    Write('Ср.арифм. отрицательных значений после ',x[p],' равно ');
    if s.Count=0 then Writeln('0')
    else Writeln(s.Average)
    end
end.

Пример
n= 12
4 1 -13 15 13 0 9 5 -12 9 4 -11
Ср.арифм.значений до 15 равно -2.66666666666667
Ср.арифм. отрицательных значений после 15 равно -11.5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота