Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате
Категория: Delphi/Pascal
2011-12-21 19:51:46
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1–18.2), «Рыбы» (19.2–20.3), «Овен» (21.3–19.4), «Телец» (20.4–20.5), «Близнецы» (21.5–21.6), «Рак» (22.6–22.7), «Лев» (23.7–22.8), «Дева» (23.8–22.9), «Весы» (23.9–22.10), «Скорпион» (23.10–22.11), «Стрелец» (23.11–21.12), «Козерог» (22.12–19.1)
code: #pascal
Program Case20; Var d,m:byte; temp:real; Begin write('Введите день:');readln(d); write('Введите номер месяца:');readln(m); case m of 1:if(d>=20)then write('«Водолей»') else write('«Козерог»'); 2:if(d>=19)then write('«Рыбы»') else write('«Водолей»'); 3:if(d>=21)then write('«Овен»') else write('«Рыбы»'); 4:if(d>=20)then write('«Телец»') else write('«Овен»'); 5:if(d>=21)then write('«Близнецы»') else write('«Телец»'); 6:if(d>=22)then write('«Рак»') else write('«Близнецы»'); 7:if(d>=23)then write('«Лев»') else write('«Рак»'); 8:if(d>=23)then write('«Дева»') else write('«Лев»'); 9:if(d>=23)then write('«Весы»') else write('«Дева»'); 10:if(d>=23)then write('«Скорпион»') else write('«Весы»'); 11:if(d>=23)then write('«Стрелец»') else write('«Скорпион»'); 12:if(d>=22)then write('«Козерог»') else write('«Стрелец»'); end; end.
автор: Zakirov Nail a.k.a. Zevsnet
Поделиться: