Помогите составить программу про китайский календарь - Turbo Pascal
Формулировка задачи:
составить программу определяющий год по китайскому календарю. обезьяны, петух, собака, кабан, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца.
Решение задачи: «Помогите составить программу про китайский календарь»
textual
Листинг программы
uses crt;
var god:integer;
begin
write('Введите год:');
readln(god);
case god mod 12 of
0:write('Обезьяна');
1:write('Петух');
2:write('Собака');
3:write('Свинья');
4:write('Крыса');
5:write('Бык');
6:write('Тигр');
7:write('Кролик');
8:write('Дракон');
9:write('Змея');
10:write('Лошадь');
11:write('Овца');
end;
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д