Помогите пожалуйста, очень срочно!
Нужно написать программу,где машина должна будет тебе выдать название месяца, сколько дней в этом месяце и какой это день недели.
Решить нужно в Pascal

1

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

2012-12-17T18:42:35+04:00

var x,y:integer;
Begin
read(x,у);
case x of
1,3,5,7,8,10,12: if (y<1) or (y>31) then goto 1;
2: if (y<1) or (y>29) then goto 1;
4,6,9,11:if (y<1) or (y>30) then goto 1;
else
Write ('Неправильно введен номер месяца');
end;

Write('Дата введена правильно');
Write('Неправильно введено число');
end.