задачи олимпиадные(массивы, строки, комбинаторные) Опции

[NightPaladin]

Посомтрите задания плз

Очень нуждаюсь в помощи

Сообщение отредактировано: NightPaladin - 15.05.2005 7:41

[NightPaladin]

В первой что - то вроди этого получилось

Код

program asd;
Uses
    CRT;
var
    year: Integer;
    mas: array[1..12] of Byte;
    day: Integer;
    mon : Byte;
    week : Byte;
    a: Byte;
(*______________________*)
    fil : Text;
    out : Text;
begin
    ClrScr;
             Assign(fil, '/input.txt');
             Reset (fil);

             Assign(out, '/output.txt');
             ReWrite(out);


           Read(fil,year);

             mas[1]:=30; mas[2]:=28; mas[3]:=31; mas[4]:=30;
             mas[5]:= 31; mas[6]:= 30; mas[7]:=31; mas[8]:=31;
             mas[9]:=30; mas[10]:=31; mas[11]:= 30; mas[12]:=31;
             If (year mod 400 =0) then
                Else If(year mod 4 = 0) AND (year mod 100 > 0) then
                     mas[2]:=29;

             repeat
                   a:= a+1;
                   day:= day + mas[a];

             until day >    255;

             day:= day - mas[a];
             day:= 255 - day;
             mon:= a;
             week:= Round(day/ 7);
                           Write(out, week,' ',day,'.',mon,'.',year);
             close(fil);
             Close(out);
    ReadKey;
end.

Мне только что сообщили, что задача работате, но выходит за отведённое время. Что Делать :o

Сообщение отредактировано: NightPaladin - 15.05.2005 8:33