решение задачи

[kuzmich]

привет всем! помогите решить задачу!
условие:
Вычеслить номер дня недели на высокосном году. заданым числу и месяцу
тока массивы лучше не использовать

[Serge_Bliznykov]

А Вы думаете это такая элементарная задачка?
Согласно международному стандарту ISO-8601:

6.7. Что такое номер недели?

В международном стандарте ISO-8601 (упомянутом в разделе 6.6) каждой неделе года присваивается номер. Для недели, часть которой находится в одном году, а часть в другом, присваивается номер в том году, которому принадлежит большее количество дней. Это означает, что Неделя 1 каждого года включает 4 января,

или

В любом году неделя 1 - это неделя, которая включает первый четверг в январе.

В большинстве годов 52 недели, но в годах, которые начинаются в четверг, и в високосных годах, начинающихся в среду - 53 недели.

перевожу на русский - мало знать того, что год високосный, по правилам ещё нужно знать, какой день недели выпал на 1-е января.

Если же считать номер семидневки, тогда нужно брать вот эту функцию:

  function DaysInMonth(Month : integer) : Integer;
  begin
    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 29;
    else
      DaysInMonth := 0;
    end;
  end;

и в цикле считать дни.
например, так (CurDay - введённый день, CurMonth - введённый месяц):

var i:byte;
    Result_sum_day:integer;
begin
  Result_sum_day:=0;
  for i:=1 to CurMonth - 1 do
      Result_sum_day:=Result_sum_day+DaysInMonth(i);

  Result_sum_day:=Result_sum_day+ CurDay;

...
  { номер СЕМИДНЕВКИ }
  if (Result_sum_day mod 7) = 0 then 
        WriteLn('Номер семидневки = ',Result_sum_day div 7)
  else
        WriteLn('Номер семидневки = ',(Result_sum_day div 7)+1);