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

@GTJokeR · Регистрация: 18.06.2016

Author24 — интернет-сервис помощи студентам

Багаж пассажира характеризуется количеством вещей и общим весом вещей.
Дан файл f, содержащий сведения о багаже нескольких пассажиров.
Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах).

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

@Peoples · 18.06.2016, 20:02

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program pr;
const
  Csize = 100;
type
  Tbag = record
    it: integer;
    weight: real;
  end;
  Tarr = array [1..Csize] of Tbag;
var
  i, j, n: integer;
  a: Tarr;
  f: file of Tbag;
  k: integer;
begin
  assign(f, 'b.txt');
  rewrite(f);
  writeln('Введите количество записей');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите количестов вещей');
    readln(a[i].it);
    writeln('Введите вес багажа');
    readln(a[i].weight);
    write(f, a[i]);
    writeln;
  end;
  close(f);
  reset(f);
  k := 0;
  while not eof(f) do
  begin
  inc(i);
  read(f,a[i]);
    for i := 1 to n do
    for j := n downto 1 do
    if (a[i].it = a[j].it) and ((a[i].weight - a[j].weight = 0.5) or (a[j].weight - a[i].weight = 0.5)) then
    begin
      k := 1;
    end;
  end;
  if k > 0 then
    writeln('Имеются два пассажира, багажи которых совпадают по числу вещей и различаются по весу не более чем на 0,5 кг')
  else writeln('Таких пассажиров нет');
end.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@GTJokeR 0 / 0 / 0 Регистрация: 18.06.2016 Сообщений: 1

	Верно ли, что имеются два пассажира, багажи которых совпадают по числу вещей 18.06.2016, 15:17. Показов 1493. Ответов 1 Метки нет (Все метки) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах). Верно ли, что имеются два пассажира, багажи которых совпадают по числу вещей и различаются по весу не более чем на 0,5 кг. 0

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

Решение