Есть ответ 👍

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

177
266
Посмотреть ответы 1

Ответы на вопрос:


Type       piece = record               value: string[10];               count : = 1;       end; var       pieces: array[1..200]of piece;       i, j, n, pieces_n: integer;       s, p: string;       found: boolean;       imax: =1; begin       read(s);       read(n);       for i : = 1 to length(s) - n + 1 do       begin               p : = copy(s, i, n);               found : = false;               for j : = 1 to pieces_n do                       if pieces[j].value = p then begin                               pieces[j].count : = pieces[j].count + 1;                               found : = true;                               if pieces[imax].count < pieces[j].count then                                       imax : = j;                               break;                       end;               if not found then begin                       pieces_n : = pieces_n + 1;                       pieces[pieces_n].value : = p;               end;       end;             writeln(pieces[imax].value); end.

Популярно: Информатика