RoxXL
17.02.2023 02:12

, ответ нужен на языке питон B. Гости
Ограничение времени 1 секунда
Ограничение памяти 256Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Вася переехал из своего родного города и очень скучает по старым друзьям. К сожалению, Вася снимает маленькую квартиру и одновременно в гости к нему может приехать только один друг.

Каждый друг сказал Васе два числа A и B - с какого по какой день он может приехать в гости. Каждый друг приезжает и уезжает в полдень. Каждый друг может приехать к Васе только один раз и остаться у него на несколько дней. Вася хотел бы, чтобы суммарное количество дней, когда у него в гостях есть кто-нибудь из друзей, было максимальным ему определить даты приезда для каждого из друзей так, чтобы они не пересекались (допустима ситуация, что в один день один из друзей приезжает, а другой - уезжает) и суммарное время, когда у Васи в гостях есть кто-то из друзей, было максимальным.

Формат ввода
В первой строке записаны целое число N (1 ≤ N ≤ 100000) - количество друзей Васи.

В следующих N строках записано по два целых числа Ai и Bi (оба числа от 1 до 109) - возможное время приезда i-го друга.

Формат вывода
Выведите N пар чисел Li и Ri - номера дней, в которые приедет и уедет i-й друг соответственно (Ai ≤ Li ≤ Ri ≤ Bi). Если i-го друга приглашать не нужно, выведите пару чисел -1 -1. Если правильных ответов несколько - выведите любой из них.

Пример 1
Ввод Вывод
3
1 2
2 4
3 5
1 2
3 4
5 5
Пример 2
Ввод Вывод
3
2 3
1 4
3 5
-1 -1
1 4
5 5

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
annablakfare303030
01.02.2021 11:35
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.
Найти и вывести на экран все целые числа из промежутка от 1 до k, в десятичной записи которых есть ц
0,0(0 оценок)
Ответ:
whatareyoudoing
29.06.2020 22:48
Var
S:real;
N:integer;
Begin
//Первый
S:=0;
For N:= 1 to 50 do
    S:=S+1/N;
WriteLn('S = ',S);

//Второй
S:=0;
N:=0;
Repeat
N:=N+1;
S:=S+1/N;
Until N = 50;
WriteLn('S = ',S);

//Третий
S:=0;
N:=0;
While N<>50 do
   Begin
   N:=N+1;
   S:=S+1/N;
   End;
WriteLn('S = ',S);

End.

Var
X:real;
Begin
X:=-3;
Repeat
WriteLn(X:4:1,'   ',((3*X*X-2)/4):6:3);
X:=X+0.2;
Until X>3;
End.

Var
A:real;
i,k:integer;
Begin
k:=0;
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then k:=k+1;
    End;
WriteLn('Кол-во отрицательных: ',k);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота