Введите с клавиатуры текущий год и год рождения. вычислите возраст, если он меньше 18 вывести год совершеннолетия, а если больше, то год выхода на пенсию. вывести текущий месяц и месяц рождения. вычислить возраст в месяцах) дата рождения 11.03.1998
Для вычислений длительностей интервалов дат в Excel есть функция РАЗНДАТ(), в английской версии - DATEDIF().Нюанс в том, что Вы не найдете эту функцию в списке Мастера функций, нажав кнопку fx - она является недокументированной возможностью Excel. Точнее говоря, найти описание этой функции и ее аргументов можно только в полной версии англоязычной справки, поскольку на самом деле она оставлена для совместимости со старыми версиями Excel и Lotus 1-2-3. Однако, несмотря на то, что эту функцию не получится вставить стандартным через окно Вставка - Функция (Insert - Function), ее можно вручную вписать в ячейку с клавиатуры - и она сработает!Синтаксис функции следующий:РАЗНДАТ(начальная_дата; конечная_дата измерения)Самый интересный аргумент, конечно, последний. Он определяет, каким именно образом и в каких единицах будет измеряться интервал между начальной и конечной датами. Этот параметр может принимать следующие значения:"y"разница в полных годах "m"в полных месяцах"d"в полных днях"yd"разница в днях с начала года без учета лет"md"разница в днях без учета месяцев и лет"ym"разница в полных месяцах без учета летТ.е. при желании подсчитать и вывести, например, ваш стаж в виде "3 г. 4 мес. 12 дн.", необходимо ввести в ячейку следующую формулу:=РАЗНДАТ(A1;A2;"y")&" г. "&РАЗНДАТ(A1;A2;"ym")&" мес. "&РАЗНДАТ(A1;A2;"md")&" дн."или в английской версии Excel:=DATEDIF(A1;A2;"y")&" y. "&DATEDIF(A1;A2;"ym")&" m. "&DATEDIF(A1;A2;"md")&" d."где А1 - ячейка с датой поступления на работу, А2 - с датой увольнения.
Var myInFile, myOutFile: text; ind: integer; currentString: string; begin assign(myInFile, 'in.txt'); reset(myInFile); assign(myOutFile, 'out.txt'); rewrite(myOutFile); while (not EOF(myInFile)) do begin currentString := readln(myInFile); while (pos('red', currentString) > 0) do begin ind := pos(currentString, 'red'); delete(currentString, ind, length('red')); insert('black', currentString, ind); end; while (pos('tree', currentString) > 0) do begin ind := pos(currentString, 'tree'); delete(currentString, ind, length('tree')); insert('palms', currentString, ind); end; end; close(myInFile); close(myOutFile); end.
Это явно шифр замены, поэтому имеет смысл провести частотный анализ. Всего букв 808 - 145 знака и пробела = 663. Из них: ь : 3; ш : 32; к : 79; п : 13; з : 16; щ : 42; а : 35; ж : 36; ц : 13; о : 33; э : 45; ы : 32; и : 16; д : 18; б : 24; л : 33; ю : 30; я : 5; г : 60; с : 1; й : 27; ч : 8; н : 6; у : 4; х : 13; м : 7; в : 17; ф : 7; р : 7; Самая частая буква в русском языке - буква О, здесь чаще всех встречается буква к - 79 раз. На 2 месте буква А, здесь это явно буква г - 60 раз. Можно с уверенностью сказать, что к = О, г = А. Кроме того, слово "швш-шк" явно означает "тут-то", а "ого" означает "как" то есть ш = Т, в = У, о = К. Проводим анализ дальше, и буквы отгадывать становится все проще. Заменяем эти буквы, я их буду писать большими, чтобы отличать, в итоге получаем
ЭТО БЫЛО НИЗКОЕ, ДЛИННОЕ ПОДЗЕМЕЛЬЕ; СВОДЫ ЕГО СЛАБО ОСВЕЩАЛИСЬ РЯДАМИ ВИСЯЧИХ ЛАМП. ПРАВДА, ПО ВСЕЙ ДЛИНЕ СТЕН ШЛИ ДВЕРИ, НО, К БОЛЬШОМУ СОЖАЛЕНИЮ, ВСЕ ОНИ ОКАЗАЛИСЬ ЗАПЕРТЫ. АЛИСА ДОВОЛЬНО СКОРО УДОСТОВЕРИЛАСЬ В ЭТОМ, ДВАЖДЫ ОБОЙДЯ ВСЕ ПОДЗЕМЕЛЬЕ И ПО НЕСКОЛЬКУ РАЗ ПОДЕРГАВ КАЖДУЮ ДВЕРЬ. ОНА УНЫЛО РАСХАЖИВАЛА ВЗАД И ВПЕРЕД, ПЫТАЯСЬ ПРИДУМАТЬ, КАК ЕЙ ОТСЮДА ВЫБРАТЬСЯ, КАК ВДРУГ НАТКНУЛАСЬ НА МАЛЕНЬКИЙ СТЕКЛЯННЫЙ СТОЛИК, НА КОТОРОМ ЛЕЖАЛ КРОХОТНЫЙ ЗОЛОТОЙ КЛЮЧИК. АЛИСА ОЧЕНЬ ОБРАДОВАЛАСЬ: ОНА ПОДУМАЛА, ЧТО ЭТО КЛЮЧ ОТ КАКОЙ-НИБУДЬ ИЗ ДВЕРЕЙ. НО УВЫ! МОЖЕТ БЫТЬ, ЗАМКИ БЫЛИ СЛИШКОМ БОЛЬШИЕ, А МОЖЕТ БЫТЬ, КЛЮЧИК БЫЛ СЛИШКОМ МАЛЕНЬКИЙ, ТОЛЬКО ОН НИКАК НЕ ХОТЕЛ ОТКРЫВАТЬ НИ ОДНОЙ ДВЕРИ. ОНА ДОБРОСОВЕСТНО ПРОВЕРЯЛА ОДНУ ДВЕРЬ ЗА ДРУГОЙ, И ТУТ-ТО ОНА ВПЕРВЫЕ ЗАМЕТИЛА ШТОРУ, СПУСКАВШУЮСЯ ДО САМОГО ПОЛА, А ЗА НЕЙ.
Это отрывок из "Алисы в Стране Чудес" Льюиса Кэрролла.
