minikisa2007
23.12.2021 10:55

Программа в С++ Метеоритный дождь

В солнечный декабрьский зимний день ничего не предвещало беды. Так думала и команда, которая решила написать очередной контест. Для написания контеста организатор подготовил несколько компьютеров. Все они пронумерованы числами от 1 до 113. Однако, когда команда пришла к началу контеста, случилось так, что почти все компьютеры были заняты - все, кроме 4-х. Команде нужно было быстро выбрать компьютер, и она уже начала справляться со сложной проблемой выбора, как вдруг по радио объявили, что сегодня будет метеоритный дождь. Причём достоверно известно, что на три из четырёх свободных компьютеров упадёт по метеориту. Так как команда не хочет быть раздавленной метеоритом, ей необходимо выбрать безопасный компьютер. Однако выбор - сложный и долгий процесс, а команда хочет хорошо выступить, поэтому им нельзя терять время ещё на один поиск им!

Входные данные:
В первой строке вам даны 4 числа - номера свободных компьютеров. Все они - различные целые числа, не превосходящие 113.

Во второй строке вам даны 3 числа - номера компьютеров, на которые упадёт метеорит. Гарантируется, что эти номера различны и что все соответствующие компьютеры свободны.

Выходные данные:
Выведите единственное число - номер компьютера, который следует выбрать команде.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Бобер3009
27.03.2021 13:41
Program SortByShell;

const
  nn=100; // максимальное количество элементов в массиве
 
type
  Mas=array[1..nn] of integer;
 
procedure SortShell(n:integer; var a:Mas);
var
  i,d,t:integer;
  k:boolean;
begin
  d:=n div 2; // начальный шаг сортировки
  while d>0 do begin
    k:=true;
    while k do begin
      k:=false;
      for i:=1 to n-d do begin
        if(a[i]>a[i+d]) then begin
          t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t;
          k:=true
          end
        end
      end;
    d:=d div 2
    end
end;

var
  i,n:integer;
  v:Mas;

begin
  Write('n='); Read(n);
  Writeln('Вводите элементы массива');
  for i:=1 to n do Read(v[i]);
  SortShell(n,v);
  for i:=1 to n do Write(v[i],' ');
  Writeln
end.

Пример
n=15
Вводите элементы массива
-10 -7 4 -12 -26 4 34 -29 7 -28 13 -10 44 0 -46
-46 -29 -28 -26 -12 -10 -10 -7 0 4 4 7 13 34 44
0,0(0 оценок)
Ответ:
roofman93p08nel
22.08.2021 18:36
//Максимально прямой(в значении тупой) код

var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;

if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;

if (a <> min) and (a <> max) then writeln(a);
if (b <> min) and (b <> max) then writeln(b);
if (c <> min) and (c <> max) then writeln(c);
end.

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