Определить k - порядковый номер дня года по дате d, m, y (день, месяц, год).
Пыталась решить сама, считает правильно до 8 месяца, потом выдает ерунду.
вот код программы, может кто подскажет в чем дело...
Код
program god;
uses CRT;
var k: 1..366;
d: 1..31;
m: 1..12;
y: 0..5000;
yy: 1..100;
tmp:integer;
begin
ClrScr;
TextColor(LightBlue);
writeln('wwedite god');
TextColor(LightGray);
readln(y);
TextColor(LightBlue);
writeln('wwedite mesyac');
TextColor(LightGray);
readln(m);
TextColor(LightBlue);
writeln('wwedite den');
TextColor(LightGray);
readln(d);
yy:=y mod 100;
tmp:=(m+10) div 13;
k:=3055*(m+2) div 100-tmp*2-91+
(1-(yy-yy div 4*4+3) div 4+
(yy-yy div 100*100+99) div 100-
(yy-yy div 400*400+399) div 400)*tmp+d;
TextColor(LightRed);
writeln('poryadkovyi nomer dnya goda ', k);
ReadKey;
end.
