На рисунке — схема дорог, связывающих пункты А, Б, В, Г, Д, Е, Ж, И, К, Л. По каждой дороге можно передвигаться только в направлении, указанном стрелкой, для каждой дороги указано время проезда в минутах. За какое минимальное время можно проехать из пункта А в пункт Л?
2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
1 - True/False
2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
10 - Конъюнкция
11 - ?
12 - ?
Объяснение:
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
type
TRAIN = record
ПунктНазначения: string;
НомерПоезда: string;
ВремяОтправления: DateTime
end;
procedure ВводДанных(Список: List<TRAIN>);
begin
var Поезд: TRAIN;
var ЧЧММ: string;
for var i := 1 to 6 do // 6 поездов
begin
Println('Ввод данных о поезде', i);
Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');
Поезд.НомерПоезда := ReadlnString('Номер поезда:');
repeat
ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');
until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);
Список.Add(Поезд)
end
end;
procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);
begin
var Отобрано:=
Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);
if Отобрано.Count>0 then
foreach var Поезд in Отобрано do
Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')
else
Println('Нет поездов на это направление')
end;
begin
var Поезда := new List<TRAIN>;
ВводДанных(Поезда);
ПоискПоездов(Поезда,ReadlnString('Куда едем?'))
end.