Var День,Месяц:byte; Begin Write('№ дня = ');ReadLn(День); Var C:=365-День; Write('№ месяца = ');ReadLn(Месяц); Case Месяц of 2:C:=C-31; 3:C:=C-59; 4:C:=C-90; 5:C:=C-120; 6:C:=C-151; 7:C:=C-181; 8:C:=C-212; 9:C:=C-243; 10:C:=C-273; 11:C:=C-304; 12:C:=C-334 End; if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней') else Case C mod 10 of 1:Write('До нового года остался ',C,' день'); 2..4:Write('До нового года осталось ',C,' дня'); 0,5..9:Write('До нового года осталось ',C,' дней') End End.
Три брата рубили в лесу дрова. Пришло время обедать. Стали братья обед варить: набрали воды в котелок, сложили костер, а разжечь костер нечем. Как на грех, ни один не взял с собой из дому ни кремня, ни спичек. Посмотрели вокруг и видят: горит за деревьями костер и сидит возле огня старик.Старший брат пошел к старику и попросил:— Дедушка, дай огоньку!— Расскажи сорок одну небылицу — дам, — ответил старик.Постоял-постоял старший брат, ни одной небылицы не придумал. Так и вернулся ни с чем. Пошел к старику средний брат.— Дай огоньку, дедушка!— Дам, если расскажешь сорок одну небылицу, — ответил старик.Средний брат почесал в затылке —ни одной небылицы не придумал и тоже вернулся к братьям без огня. Пошел к старику младший брат.— Дедушка, — говорит младший брат старику, — собрались мы с братьями обед варить, да огня нет. Дай нам огня.— Если расскажешь сорок одну небылицу, — говорит старик,— дам тебе огня и еще вдобавок котел и жирную утку, что варится в котле.— Ладно, — согласился младший брат, — расскажу я тебе сорок одну небылицу. Только, чур, не сердись.— Да кто же на небылицы сердится!— Ну ладно, слушай. Родилось нас у отца-матери трое братьев. Умирали мы один за другим, и осталось нас всего семь человек. На семерых братьев: один был глухой, другой — слепой, третий — хромой, четвертый — безрукий, а пятый — голый, ни клочка одежды на нем не было.Однажды собрались мы и пошли ловить зайцев. Опутали одну рощу нитками, а глухой брат уже услышал.«Вон-вон, там шуршит!» — закричал глухой.А тут слепой зайца увидел: «Ловите! Он в овраг побежал!»Побежал хромой вдогонку за зайцем — вот-вот поймает… Только безрукий уже схватил зайца.Положил голый зайца в подол и принес домой.Зарезали мы зайца и натопили из него пуд сала.Была у нас на всех одна пара отцовских сапог. И стал я тем салом отцовские сапоги смазывать. Мазал-мазал — хватило сала только на один сапог. Рассердился несмазанный сапог и убежал от меня. Сапог бежит, я — за ним. Прыгнул сапог в какую-то дыру под землю. Свил я веревку из мякины и за сапогом спустился. Тут и догнал его!Стал я назад вылезать, да веревка оборвалась, и свалился я опять под землю. Сижу я, сижу в дыре, а тут весна наступила. Свил себе журавль гнездо, вывел журавлят. Повадилась за журавлятами лиса лазить: сегодня одного утащит, завтра — другого, послезавтра за третьим приходит. Подкрался я однажды к лисе — и хвать ее за хвост!Побежала лиса и меня за собой потащила. У выхода я застрял, а лиса рванулась — и хвост оторвался.Принес я домой лисий хвост, распорол его, а внутри лежит бумажка. Развернул я бумажку, а там написано: «Старик, который варит сейчас жирную утку и слушает небылицы, должен твоему отцу десять пудов ржи».— Вранье! — рассердился старик. — Небылица!— А ты и спрашивал небылицы, — ответил младший брат.Нечего делать старику, пришлось отдать и котел, и утку.
Работает, проверил.
если что пиши