FXPELIVE
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
PROGRAM z1;
Var
year,month,day,_tmp:Integer;
m,d,y,c:ShortInt;
_res:Real;
res:Integer;
BEGIN
Write('year='); Read(year);
Write('month='); Read(month);
Write('day='); Read(day);
{ОБРАБОТКА ПОЛУЧЕННОГО НОМЕРА МЕСЯЦА}
if (month=1) then month:=11 else
if (month=2) then month:=12 else
if ((month > 2) AND (month < 11)) then month:=month-2;
{ОБРАБОТКА ПОЛУЧЕННОГО НОМЕРА ГОДА}
_tmp:=year div 100;
y:=year-(_tmp*100);
c:=(year div 100);
d:=day;
m:=month;
_res:=(2677*m-0.2)+d+y+(y/4)+(c/4)-(2*c);
res:= Round(_res) mod 7;
if (res=0) then writeln('ВОСКРЕСЕНИЕ');
if (res=1) then writeln('ПОНЕДЕЛЬГИЕ');
if (res=2) then writeln('ВТОРНИК');
if (res=3) then writeln('СРЕДА');
if (res=4) then writeln('ЧЕТВЕРГ');
if (res=5) then writeln('ПЯТНИЦА');
if (res=6) then writeln('СУББОТА');
readln;
END.
|
Всего записей: 348 | Зарегистр. 27-04-2006 | Отправлено: 16:13 07-09-2010 | Исправлено: FXPELIVE, 16:47 07-09-2010 |
|
