М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sevara221
sevara221
05.03.2022 12:16 •  Информатика

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

👇
Ответ:
ollolinda213
ollolinda213
05.03.2022

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

Объяснение:

4,5(92 оценок)
Открыть все ответы
Ответ:
Jeka5A
Jeka5A
05.03.2022
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.
4,4(5 оценок)
Ответ:
dinbili2
dinbili2
05.03.2022
Перемещение и копирование с меню1. Выделите область ячеек для копирования.2. Для перемещения щелкните кнопку Вырезать -  или выберите команду Вырезать из меню Правка (Edit, Cut). Excel показывает границу, окружающую область вырезания.3. Для копирования щелкните по кнопке Копировать -  или выберите Правка, Копировать (Edit, Copy). Excel показывает границу, окружающую область копирования.4. Выберите место (верхнюю ячейку области) вставки.5. Щелкните по кнопке Вставить -  нажмите Enter или выберите Правка, Вставить (Edit, Paste).Возможность Перетаскивания (Drag and Drop) позволяет перемещать или копировать содержимое выделенных ячеек с мыши. Эта возможность особенно полезна при .перемещении и копировании на небольшие расстояния (в пределах видимой области рабочего листа).Перемещение и копирование перетаскиванием1. Выберите область ячеек для перемещения.2. Переместите указатель мыши на обрамление выделения.3. Перетащите выделение с указателя на новое место. Область ячеек будет перемещена на новое место.4. Если при перетаскивании удерживать нажатой клавишу Ctrl, область ячеек будет скопирована на новое место.
4,4(38 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ