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

бjulfyн бjulfyн    3   27.05.2019 13:00    5

Ответы
leranik4 leranik4  24.06.2020 13:34
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.

Вроде должно работать. Проверить не могу - сижу с телефона
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика