Напишите программу, которая по порядковому номеру месяца выводит на экран время года
Answers & Comments
vivonich
Var N:integer; Begin WriteLn('Январь - первый месяц'); WriteLn('Введите номер месяца'); ReadLn(N); Case N mod 12 of 0,1,2:Write('Зима'); 3,4,5:Write('Весна'); 6,7,8:Write('Лето'); 9,10,11:Write('Осень'); End; End.
Answers & Comments
N:integer;
Begin
WriteLn('Январь - первый месяц');
WriteLn('Введите номер месяца');
ReadLn(N);
Case N mod 12 of
0,1,2:Write('Зима');
3,4,5:Write('Весна');
6,7,8:Write('Лето');
9,10,11:Write('Осень');
End;
End.