Elena407008
01.03.2020 02:18

3. Складіть проєкт для малювання чотирьох квадратів, розміщених пору Довжина сторони першого з них дорівнює а кроків, а довжина сторон
кожного наступного — на b кроків більша за довжину сторони попереднього

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
кама148
13.04.2021 19:41
1) Это кнопки, иконки, поля ввода. Кнопки нажимаются, в поля вводится текст.
2) В Windows -строка заголовка – верхняя строка окна, в которой находится имя программы или имя окна; 
кнопка сворачивания окна; 
кнопка восстановления окна 
кнопка закрытия окна 
кнопка системного меню 
строка меню 
панель инструментов 
полосы прокрутки 
рабочее поле 
строка состояния 
рамка окна. 
Вроде все.
3) 1. System 32. Рабочий стол.
2. Мой компьютер, Мои документы, Корзина, Сетевые окружения(Сеть) и управляющие объекты Windows.
4) 1. Иконки, панель задач, папки
2. Ярлык это ссылка на файл, который может находиться где угодно на ПК, а значок это сам файл
3. На панели задач располагается запущенные приложения, панель быстрого доступа, часы... .
4. Папка "Мой компьютер"
5) Ярлык дает ссылку на значок,который запускает.
6) Пуск,панель задач,программы в фоновом режиме,задачи или все, что ты туда поместишь.
0,0(0 оценок)
Ответ:
Jirnyi
11.05.2021 04:21
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота