Найдите ход решения и ответ логического выражения (0 & 1) v ¬1

ответ:каой класс

Объяснение:

Program Pro1;
type Date = record 
day : 1..31; 
mounth : 1..12; 
year : integer; 
end; 
Person = record 
SurnameName : string; 
Birthday : date; 
end; 
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;

//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;

for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;

WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.

Перемещение и копирование с меню1. Выделите область ячеек для копирования.2. Для перемещения щелкните кнопку Вырезать -  или выберите команду Вырезать из меню Правка (Edit, Cut). Excel показывает границу, окружающую область вырезания.3. Для копирования щелкните по кнопке Копировать -  или выберите Правка, Копировать (Edit, Copy). Excel показывает границу, окружающую область копирования.4. Выберите место (верхнюю ячейку области) вставки.5. Щелкните по кнопке Вставить -  нажмите Enter или выберите Правка, Вставить (Edit, Paste).Возможность Перетаскивания (Drag and Drop) позволяет перемещать или копировать содержимое выделенных ячеек с мыши. Эта возможность особенно полезна при .перемещении и копировании на небольшие расстояния (в пределах видимой области рабочего листа).Перемещение и копирование перетаскиванием1. Выберите область ячеек для перемещения.2. Переместите указатель мыши на обрамление выделения.3. Перетащите выделение с указателя на новое место. Область ячеек будет перемещена на новое место.4. Если при перетаскивании удерживать нажатой клавишу Ctrl, область ячеек будет скопирована на новое место.