Написать программу, которая по порядковому номеру месяца выводит на экран время года ( прим: при введении с клавиатуры числа 5, программа пишет на экране "осень")
Var A:integer; Begin WriteLn('Введите номер месяца'); ReadLn(A); A:=A mod 12; Case A of 0,1,2:WriteLn('Зима'); 3,4,5:WriteLn('Весна'); 6,7,8:WriteLn('Лето'); 9,10,11:WriteLn('Осень') End End.
дом 1 2 3 4 5 цвет- жёлтый синий красный белый зелёный национальность- норвежец украинец англичанин испанец японец напиток- вода чай молоко сок кофе сигареты-Kool Chesterfield Old-Gold Lucky Strike Parliament животные- лиса лошадь улитки собака зебра№2
№2
Чтобы стакан мог оказаться между сосудами с чаем и молоком, он должен переместиться на место 3 (чашка на место 4), на месте 2 он будет между минеральной водой и еще чем-нибудь.
Таким образом, он будет встанет точно в середине. Из этого можно сделать вывод, что в стакане находится кофе. Молоко из условия задачи, во-первых, рядом со стаканом, во-вторых, рядом с сосудом с квасом. Значит, в кружке находится чай, в чашке – молоко, в кувшине – квас.
Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай. кофе чай молоко квас минеральная вода бутылка - - - - + кружка + чашка + стакан + - - - - кувшин +
A:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(A);
A:=A mod 12;
Case A of
0,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень')
End
End.