Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год - Turbo Pascal

Формулировка задачи:

Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год.Через case

Код к задаче: «Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год - Turbo Pascal»

textual
var
 n: 2000..2014; {проверка диапазона}
 
begin
 write('Введите год (2000-2014): ');
 readLn(n);
 case n of 
  2000, 2012: write('Год Дракона');
  2001, 2013: write('Год Змеи');
  2002, 2014: write('Год Лошади');
  2003: write('Год Козы');
  2004: write('Год Обезьяны'); 
  2005: write('Год Петуха'); 
  2006: write('Год Собаки');
  2007: write('Год Свиньи');
  2008: write('Год Крысы'); 
  2009: write('Год Быка');
  2010: write('Год Тигра');
  2011: write('Год Кота');
 end;
 readln;
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы