Создать программу на паскаль: По номеру года определить его название в старо японском календаре
Вопрос посетителя
Создать программу: По номеру года определить его название в старо японском календаре
Ответ эксперта
Program practik3;
Uses crt;
Var Year : Integer;
Begin
WriteLn(‘Введите номер года ‘);
ReadLn(Year);
Case (Year mod 12) Of
0: WriteLn(‘Год Обезьяны’);
1: WriteLn(‘Год Петуха’);
2: WriteLn(‘Год Собаки’);
3: WriteLn(‘Год Свиньи’);
4: WriteLn(‘Год Крысы’);
5: WriteLn(‘Год Коровы’);
6: WriteLn(‘Год Тигра’);
7: WriteLn(‘Год Зайца’);
8: WriteLn(‘Год Дракона’);
9: WriteLn(‘Год Змеи’);
10: WriteLn(‘Год Лошади’);
11: WriteLn(‘Год Овцы’)
End;
Readkey
End.