Дан год. Вывести на экран на экран название животного, символизирующего этот год по восточному календарю (cock, dog, pig, rat, bull, tiger, rabbit, dragon, snake, horse, sheep, monkey).

Формат входных данных:

Входной файл содержит натуральное число

Формат выходных данных:

В выходной файл выведите ответ на поставленную задачу.

Question

Информатика

Борислав

25 июня, 09:28

Дан год. Вывести на экран на экран название животного, символизирующего этот год по восточному календарю (cock, dog, pig, rat, bull, tiger, rabbit, dragon, snake, horse, sheep, monkey).

Формат входных данных:

Входной файл содержит натуральное число

Формат выходных данных:

В выходной файл выведите ответ на поставленную задачу.

+2

Ответы (1)

Знаете ответ?

Олеся · Answer 1

Var

x, y:integer;

a:array [1 ... 12] of string;

begin

a[1]:=cock;

...

a[12]:=monkey;

read (x) ;

y: = (abs (2016-x)) mod 12;

write (a[y]) ;

end.

Вроде должно работать. Проверить не могу - сижу с телефона