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
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Что умеет исполнитель чертёжник?1.Все утверждения верны.2.Опускать перо.3.поднимать перо.4.Рисовать линии пером.Для чего предназначен исполнитель чертёжник?1.два утверждения верны.2.для сканирования чертежей.3. ни одно утверждение не верно.4.для построения рисунков на кординатной плоскости.Результат выполнения каких каманд оставляет линию?1.опустить перо и перейти в точку( x, y)2.поднять перо и перейти в точку (x, y)3.поднять перо исмоститься в точку (x, y)4.все утверждения не верны.5.опустить перо и сместиться в точку(x, y)
1- 4
2- 2
3- 4
Объяснение: