помогите пожалуйста!!!! очень надоРебята я хочу сделать программу в паскаль abc!

Мне нужна программа в которую ты вводишь дату рождения а он выводит тебе знак задиака)

1

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

2013-05-16T15:42:54+00:00

 Тебе поможет IF

program zodiac;

Uses CRT;

VAR { Овен, 21 марта — 20 апреля Телец, 21 апреля — 21 мая Близнецы, 22 мая — 21 июня Рак, 22 июня — 23 июля Лев, 24 июля — 23 августа Дева, 24 августа — 23 сентября Весы, 24 сентября — 23 октября Скорпион, 24 октября — 22 ноября Стрелец, 23 ноября — 21 декабря Козерог, 22 декабря — 20 января Водолей, 21 января — 18 февраля Рыбы, 19 февраля — 20 марта } date,month,year: integer;

BEGIN

Clrscr;

write('год:');

read(year);

if (year>=1901) and (year<=2099) then begin write('месяц:');

readln(month);

if (month>0) and (month<=12) then else write('Всего 12 месяцев...');

end

else write('error!');

readln;

end.