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

Ограничение времени 0.5 секунд ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt доктор кувалда любит забивать половину гвоздей одним ударом. кувалда доктора представляет собой окружность. вам дано n гвоздей, являющихся точками на плоскости (гарантируется, что n чётно). вам необходимо найти такие три точки из множества, что в окружность проведённую через эти три точки попадает ровно половина гвоздей. при этом точки, которые лежат на самой окружности можно считать как внутренними, так и внешними. иными словами, если строго внутри окружности лежит a точек, строго вне окружности лежит b точек, а на окружности лежит c точек, то решение будет считаться верным, если выполнено |a - b| ≤ c. при этом гарантируется, что никакие 3 точки не лежат на одной прямой. формат ввода в первой строке содержится единственное целое число n (4 ≤ n ≤ 100 000) — количество точек. в каждой из следующих n строк содержатся два числа x и y (|x|, |y| ≤ 100 000) — координаты гвоздя (целые числа). формат вывода 3 числа через пробел - номера точек, через которые стоит провести окружность (нумерация с 1). если решений несколько, то выведите любое. пример 1 ввод вывод 4 0 0 1 1 0 1 1 0 1 2 3

👇
Ответ:
Marishka301
Marishka301
16.04.2021

ответ: 0009100

Объяснение: и 010001

4,8(90 оценок)
Открыть все ответы
Ответ:
ппп278
ппп278
16.04.2021
 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.
4,7(96 оценок)
Ответ:
annetalovecamar
annetalovecamar
16.04.2021
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('Количество элементов в массиве: ');
  var a:=ArrRandom(n,-50,50);
  a.Println(',');
  Writeln('Четные элементы: ');
  var i:=1;
  while i<n do begin Write(a[i],' '); Inc(i,2) end;
  Writeln;
  Writeln('Нечетные элементы: ');
  i:=0;
  while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9
4,8(11 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ