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

Какое ро стояние между киевом и львовом у сантиметрах (информатика)

👇
Ответ:
bili0909
bili0909
30.12.2021
46700000 вот ответ на твой вопрос 
4,6(50 оценок)
Открыть все ответы
Ответ:
navozovaleksejj
navozovaleksejj
30.12.2021

Объяснение:

#include <iostream>

#include<vector>

#include <algorithm>

using namespace std;

int main() {

ios::sync_with_stdio(false);

int N, A, B;

cin >> N;

vector < vector <int>> IO;

int lastDay = 0;

for (int i = 0; i <  N; i++) {

 cin >> A >> B;

 IO.push_back(vector<int>());

 IO[i].push_back(A);

 IO[i].push_back(B);

 IO[i].push_back(i);

}

sort(IO.begin(), IO.end());

for (int i = 0; i < N; i++)

{

 if (lastDay >= IO[i][1]) {

  IO[i][0] = -1;

  IO[i][1] = -1;

 }

 else {

  if (lastDay < IO[i][0]) {

   lastDay = IO[i][1];

  }

  else if (lastDay >= IO[i][0]) {

   IO[i][0] = lastDay+1;

   lastDay = IO[i][1];

  }

 }

}

for (int i = 0; i < N; i++) {

 for (int j = 0; j < N; j++) {

  if (IO[j][2] == i) {

   cout << IO[j][0] << " " << IO[j][1] << endl;

   break;

  }

 }

}

return 0;

}

4,6(87 оценок)
Ответ:
Lansiksgo
Lansiksgo
30.12.2021
Если только синтаксические ошибки убрать, то должно быть так:

Private Sub CommandButton1_Click()
    Dim A(1 To 5, 1 To 5) As Single
    Dim i As Integer, j As Integer, k As Integer
    Dim sr As String
    k = 0
    ListBox1.Clear
    For i = 1 To 5
        sr = ""
        For j = 1 To 5
            A(i, j) = i + 0.5 * j
            sr = sr + " " + Format(A(i, j), "0.000") + " "
            If (A(i, j) > 1) And (A(i, j) < 2.5) Then k = k + 1
        Next j
        ListBox1.AddItem (sr)
    Next i
    TextBox1.Text = Str(k)
End Sub

А если неверно запрограммировано, то надо знать, что и как должно делаться.
4,8(32 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ