Задать вопрос
25 сентября, 12:27

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

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

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

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

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

+3
Ответы (1)
  1. 25 сентября, 14:37
    0
    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.

    Вроде должно работать. Проверить не могу - сижу с телефона
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан год. Вывести на экран на экран название животного, символизирующего этот год по восточному календарю (cock, dog, pig, rat, bull, tiger, ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы