PascalВыделить код1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
god:=2008;
if ((god mod 60)>=4)and((god mod 60)<16) then write('Зелено');
if ((god mod 60)>=16)and((god mod 60)<28) then write('Красно');
if (god mod 60>=28)and((god mod 60)<40) then write('Желто');
if (god mod 60>=40)and((god mod 60)<52) then write('Бело');
if ((god mod 60)>=52)or((god mod 60)<4) then write('Черно');
f:=((god mod 60) mod 12);
case f of
4: write('й крысы');
5: write('й коровы');
6: write('го тигра');
7: write('го зайца');
8: write('го дракона');
9: write('й змеи');
10: write('й лошади');
11: write('й овцы');
0: write('й обезьяны');
1: write('й курицы');
2: write('й собаки');
3: write('й свиньи');
end;</span>