Показать сообщение отдельно
  #3  
Старый 12.12.2008, 14:33
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А самому подумать?

Первая задача.
Как определить, являетс ли число делителем другого? Разделить и посмотреть - делится нацело или нет.
Код:
function IsDiv(ANumber, ADiv : Integer) : Boolean;
begin
  Result := (ANumber mod ADiv) = 0; // Остаток от деления = 0.
end;
Дальше просто берешь из интерфейса числа и проверяешь через эту функцию.


Вторая задача.
Ну тут вообще все просто. Можно даже обойтись без жутких кейсов.
Номера месяцев, соотв. номкру сезона:

(N-1) * 3
(N-1) * 3 + 1
(N-1) * 3 + 2
И 0 меняем на 12.

Теперь о кол-ве дней.
есть функция - DaysInAMonth - возвращает кол-во дней в месяце, но требует указания года. Для получения года можно, например, использовать такую конструкцию: YearOf(Date).

Ну как из этого составить вычисление, надеюсь, сам разберешься.
Ответить с цитированием