як за до шалькових терезів без гир розділити 16 кг крупи на дві частини - 7 кг і 9 кг? скільки знадобиться зважувань?
297
377
Ответы на вопрос:
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.
Популярно: Информатика
-
Ghhhuj15.05.2021 01:24
-
9955Х01.10.2022 11:32
-
исмира431.05.2021 18:06
-
ангел81507.04.2020 05:31
-
bogoslowskaia12.09.2021 10:50
-
ома709.06.2020 19:40
-
OLZHAS180809.04.2023 12:33
-
Lagoona03012.01.2021 17:36
-
irashnytko12.07.2022 12:12
-
matyusha4722.11.2022 05:47