var timeInSec:integer; // время в секундах color, s, m, h:byte; begin h := 4; //часы m := 5; //минуты s := 23; //секунды
timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет} {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет} case color of //вывод ответа 0: writeln('Горит зеленый свет'); //0 - это зеленый свет 1: writeln('Горит желтый свет'); //1 - это желтый свет 2: writeln('Горит красный свет'); //2 - это крсный свет end; end.
Основные преимущества компьютерной технологии создания текстовых документов перед бумажной технологией:
1) Понятно написанный текст (есть не понятные почерки);
2) Высока скорость набора текста;
4) Возможность быстрой корректировка ошибок (в рукописном исправить сложнее);
5) Быстрая перестановка и перенесение теста в нужные места (сохранение выделенного фрагмента в буфер обмена);
6) Простое форматирование текста (стиль и размеры текста) и абзацев в целом;
7) Просто насыщение текста картинками, таблицами, графиками и т.п.
8) Быстрый поиск ключевого слова по тексту;
9) Одновременная работа над одним текстом нескольких авторов;
10) Автоматическая проверка ошибок;
11) Простое и удобное рецензирование;
12) Быстрое размножение текста в любых объемах;
13) Защита авторских прав (от копирования, редактирования);
14) Доступ к тексту из любой точки мира;
15) Печать текста с наложением водяными знаками и применение различных подложек;
16) Представление текста в любых форматах (doc, pdf, jpeg и т.д);
17) Возможность шифрования текста для защиты от несанкционированного доступа;
18) Возможность применения по тексту гипер- и перекрестных ссылок;
19) Возможность установки цифровой подписи от автора текста;
20) Сохранение природных ресурсов (не нужно рубить леса для бумаги).
var
timeInSec:integer; // время в секундах
color, s, m, h:byte;
begin
h := 4; //часы
m := 5; //минуты
s := 23; //секунды
timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды
color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}
{потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет}
case color of //вывод ответа
0: writeln('Горит зеленый свет'); //0 - это зеленый свет
1: writeln('Горит желтый свет'); //1 - это желтый свет
2: writeln('Горит красный свет'); //2 - это крсный свет
end;
end.