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.
Поделитесь своими знаниями, ответьте на вопрос:
Между населёнными пунктами A, B, C, D, E, F, Z построены дороги с односторонним движением. В таблице указана протяжённость каждой дороги. Отсутствие числа в таблице означает, что прямой дороги между пунктами нет. Например, из A в B есть дорога длиной 4 км, а из B в A дороги нет. Курьеру требуется проехать из A в Z, посетив не менее 6 населённых пунктов. Пункты A и Z при подсчёте учитываются, два раза проходить через один пункт нельзя. Какова наименьшая возможная длина маршрута курьера? В ответе запишите натуральное число – длину минимального маршрута.
22
Объяснение:
Строим граф - картинка 1
считаем пути
ABCDEZ = 4 + 3 + 11 + 4 + 1 = 23
ABCDFZ = 4 + 3 +11 + 3 + 2 = 23
ABCDEFZ = 4 + 3 + 11 + 4 + 4 + 2 = 28
ABCEFZ = 4 + 3 + 10 + 4 + 2 = 23
ABDEFZ = 4 + 8 + 4 + 4 + 2 = 22
ACDEFZ = 6 + 11 + 4 + 4 + 2 = 27
или
Строим дерево - картинка 2 (ветви, которые очевидно не достигают 6 пунктов не строим)
считаем пути