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

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

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

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

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

Question

Информатика

Амвросий

4 декабря, 05:03

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

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

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

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

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

+5

Ответы (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.

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