В первой что - то вроди этого получилось
Код
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