Создайте программу "гороскоп" с оператором CASE, введя с клавиатуры год и по году...

Question

Создайте программу "гороскоп" с оператором CASE, введя с клавиатуры год и по году определите какой это год по гороскопу Обезьяны, Петуха, Кролика и т.д., зная что цикл длится 12 лет.

Answer 1

Var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    case a mod 12 of
        0: writeln('Вы родились в год Обезьяны.');
        1: writeln('Вы родились в год Петуха.');
        2: writeln('Вы родились в год Собаки.');
        3: writeln('Вы родились в год Свиньи.');
        4: writeln('Вы родились в год Крысы.');
        5: writeln('Вы родились в год Быка.');
        6: writeln('Вы родились в год Тигра.');
        7: writeln('Вы родились в год Кролика.');
        8: writeln('Вы родились в год Дракона.');
        9: writeln('Вы родились в год Змеи.');
        10: writeln('Вы родились в год Лошади.');
        11: writeln('Вы родились в год Козы.');
  end;
  readln
end.