VAR a,b,c,mx,mn: LongInt; BEGIN Read(a,b,c); if (a >= b)and(a >= c) then mx := a; if (b >= a)and(b >= c) then mx := b; if (c >= a)and(c >= b) then mx := c;
if (a <= b)and(a <= c) then mn := a; if (b <= a)and(b <= c) then mn := b; if (c <= a)and(c <= b) then mn := c;
Writeln('Минимальное число = ', mn); Writeln('Максимальное число = ', mx); END.
VAR x,y: Real; BEGIN Read(x, y);
if (x <= 0)and(y >= 0) then Write('True') else Write('False'); END.
VAR n: LongInt; BEGIN Read(n); if (n > 0) then Inc(n); Write(n); END.
Понятие информатики. История развития информатики. Место информатики в ряду других фундаментальных наук.
Мировоззренческие экономические и правовые аспекты информационных технологий.
Понятие информации и ее измерение. Количество и качество информации. Единицы измерения информации. Информация и энтропия.
Сообщения и сигналы. Кодирование и квантование сигналов.
Информационный процесс в автоматизированных системах. Фазы информационного цикла и их модели.
Информационный ресурс и его составляющие.
Информационные технологии. Технические и программные средства информационных технологий.
Основные виды обработки данных. Обработка аналоговой и цифровой информации. Устройства обработки данных и их характеристики.
Принцип программного управления.
Функциональная и структурная организация компьютера.
Сетевые технологии обработки данных. Виды и характеристики носителей и сигналов. Спектры сигналов. Модуляция и кодирование.
Каналы передачи данных и их характеристики. Методы повышения помехоустойчивости передачи и приема. Современные технические средстваобмена данных и каналообразующей аппаратуры.
Организация данных на устройствах с прямым и последовательным доступом. Файлы данных. Файловые структуры. Носители информации и технические средства для хранения данных.
Представление информации в цифровых автоматах (ЦА). Информационные основы контроля работы цифровых автоматов.
Систематические коды. Контроль по четности, нечетности, по Хеммингу.
a,b,c,mx,mn: LongInt;
BEGIN
Read(a,b,c);
if (a >= b)and(a >= c) then mx := a;
if (b >= a)and(b >= c) then mx := b;
if (c >= a)and(c >= b) then mx := c;
if (a <= b)and(a <= c) then mn := a;
if (b <= a)and(b <= c) then mn := b;
if (c <= a)and(c <= b) then mn := c;
Writeln('Минимальное число = ', mn);
Writeln('Максимальное число = ', mx);
END.
VAR
x,y: Real;
BEGIN
Read(x, y);
if (x <= 0)and(y >= 0) then Write('True')
else Write('False');
END.
VAR
n: LongInt;
BEGIN
Read(n);
if (n > 0) then Inc(n);
Write(n);
END.