В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
karkhachatryan
karkhachatryan
26.05.2023 09:48 •  Информатика

Придумати 5 логічних висловлювань​

Показать ответ
Ответ:
Aidanok1
Aidanok1
18.02.2021 01:33
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger;

 var L := new List<(integer, integer)>;

 loop n do

 begin

   L.Add(ReadInteger2)

 end;

 var k := L.Count;

 L := L.Distinct.ToList; // этап 1

 var k1 := L.Count;

 Print(k - k1);

 (k, k1) := (k1, 0); // этап 2

 var St := new Stack<integer>;

 var m := L.First[0]; // время

 for var i := 1 to k - 1 do

   if L[i][0] <= m then

   begin

     St.Push(i);

     Inc(k1)

   end

   else m := L[i][0];

 for var i := 1 to k1 do

   L.RemoveAt(St.Pop);

 Print(k1);

 (k, k1) := (L.Count, 0); // этап 3

 m := L.First[1]; // температура

 for var i := 1 to k - 1 do

   if Abs(L[i][1] - m) > 10 then

   begin

     St.Push(i);

     Inc(k1)

   end

   else m := L[i][1];

 for var i := 1 to k1 do

   L.RemoveAt(St.Pop);

 Println(k1);

end.

Пример610 58 58 58 512 2513 102 1 1
0,0(0 оценок)
Ответ:
faridremihanov1
faridremihanov1
25.07.2022 07:10

ПОЛЬЗА ОТ ИНТЕРНЕТА .  

Интернет облегчает жизнь многим людям. В работе человека он очень практичный и удобный, если раньше данная работа выполнялась в течение двух, а то и трех дней, то сегодня с мировой сети можно сделать всю работу всего за час.  

Многие люди инвалиды могут теперь только с компьютера и наличии интернета выполнять работу дома и тем самым зарабатывать себе на жизнь.  

Интернет так же выполняет познавательную роль, вы можете путешествовать по всему миру, не отходя от своего компьютера. Перед вами открывается весь земной шар со своими райскими уголками. Теперь не нужно тратить кучу денег и покупать различные энциклопедии, достаточно только открыть поисковую систему и прописать интересующий вас вопрос.  

Конечно, нельзя не отметить и развлекательную функцию интернета. На сегодня существует множество онлайн игр, форумов по интересам и много другого.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота