//PascalABC.Net 3.2 begin var time:=readinteger('Введите время суток: '); if time in [0..5] then write ('Ночь') else if time in [6..11] then write ('Утро') else if time in [12..18] then write ('День') else write ('Вечер'); end.
Program n1; var c: integer; begin readln(c); case c of 0..5: writeln('ночь'); 6..11: writeln('утро'); 12..18: writeln('день'); 19..24: writeln('вечер') end; end.
Пять верст до небес и все лесом. Эка верста выросла (как Коломенская верста) . За семь верст киселя хлебать. Ты от дела на недельку, а оно от тебя на саженьку. Видеть на сажень сквозь землю. Загадка разгадка да семь верст правды. Каждый купец на свой аршин мерит. Прямой, будто аршин проглотил. Семи пядей во лбу. Сам с ноготок, а борода с локоток. От горшка два вершка, а уже указчик. Полено к полену - сажень. Москва верстой далека, а сердцу рядом. Любовь верстами не меряется. Сто верст молодцу не крюк. От слова до дела - целая верста. Верстой ближе - пятаком дешевле. Жили с локоть, а осталось с ноготь. В чужих руках ноготок с локоток. Дай с ноготок, запросит с локоток. Семь аршин говядины да три фунта лент (о бессмыслице)
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.