Составить
программу, определяющую животное, соответствующее году по китайскому гороскопу



2
это типо 1900 1912 1924 1936 1948 1960 1972 1984 1996 2008 2020 это не подходит
Почему?
сказали мне через div или mod
он должен любой год назвать например 2145 или 1 год
понятно, значит нужна кратность и т.п. ну окей, щас посмотрим, что можно сделать)

Ответы и объяснения

2014-02-06T22:37:14+04:00
Program god_Japan;
var y, y1: Integer;
color : Integer;
beast : Integer;
begin
Write('Введите год');
ReadLn(year);
year1 := ((year - 1984) mod 60 + 60) mod 60;
beast := year1 mod  12;
color := (year1 div 12) mod 5; 
Write(year, ' - год ');
if beast in [2, 3, 4] then 
case color of 
0: Write('зеленого'); 
1: Write('красного'); 
2: Write('желтого'); 
3: Write('белого'); 
4: Write('черного'); 
end
else 
case color of   
0: Write('зеленой'); 
1: Write('красной'); 
2: Write('желтой');
3: Write('белой'); 
4: Write('черной'); 
end; 
Write(' ');
case beast of 
0: Write('Крысы');
1: Write('Коровы');
2: Write('Тигра'); 
3: Write('Зайца'); 
4: Write('Дракона'); 
5: Write('Змеи'); 
6: Write('Лошади');
7: Write('Овцы'); 
8: Write('Обезьяны'); 
9: Write('Курицы'); 
10: Write('Собаки'); 
11: Write('Свиньи'); 
end; 
WriteLn();
end.
Пробуй, могут быть недочеты типа "нет двоеточия" и т.п
спасибо ок
не за что
ну и намудрил ты дядя
Комментарий удален
2014-02-06T22:52:48+04:00
var a, b, c, i:integer;
begin
   read (a);
   a:=a-4;
   if a = -3 then write ('Петух');
   if a = -2 then write ('Собака');
   if a = -1 then write ('Свинья');
   if a mod 12 = 0 then writeln ('Крыса');
   if a mod 12 = 1 then writeln ('Бык');
   if a mod 12 = 2 then writeln ('Тигр');
   if a mod 12 = 3 then writeln ('Кролик');
   if a mod 12 = 4 then writeln ('Дракон');
   if a mod 12 = 5 then writeln ('Змея');
   if a mod 12 = 6 then writeln ('Лошадь');
   if a mod 12 = 7 then writeln ('Овца');
   if a mod 12 = 8 then writeln ('Обезьяна');
   if a mod 12 = 9 then writeln ('Петух');
   if a mod 12 = 10 then writeln ('Собака');
   if a mod 12 = 11 then writeln ('Свинья');
end.