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;
