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