Составить программку в PascalABC Денек программера обычно отмечается в Беларуси в

Составить программу в PascalABC
День программера обычно отмечается в Беларуси в 256-й денек года. Число
256 (28
) выбрано поэтому, что оно представляет количество различных целых чисел, которые
можно выразить с поддержкою 1-го восьмиразрядного байта. А денек интернет-программера
раз в год празднуют 4 апреля. Эта дата также выбрана не случайно: цифры 4.04 очень
напоминают по собственному написанию ошибку 404 (Страничка не найдена), имеющую прямое
отношение к работе веб-мастеров. В теперешнем году, кстати, денек интернет-программера
выпадает на вторник, а денек программиста на среду.
В ответе укажите, сколько раз за наиблежайшие 100 лет оба праздничка выпадут на один и
тот же денек недели.

Задать свой вопрос
1 ответ
Const
 names:array[1..7] of string=('пн','вт','ср','чт','пт','сб','вс');
var k,i,n0,np,nw,year,dw:integer;
begin
k:=0;
n0:=6; //01.01.2000 - суббота
for i:=2000 to 2100 do
 begin
  if (i mod 400=0)or(i mod 4=0)and(i mod 100lt;gt;0)
   then begin year:=366; dw:=31+29+31+3; end
   else begin year:=365; dw:=31+28+31+3; end;
  np:=(255+n0-1) mod 7+1;
  nw:=(dw+n0-1) mod 7+1;
  n0:=(year+n0-1) mod 7+1;
  if np=nw then 
   begin writeln(i,' - ',names[np]); k:=k+1; end;
 end;
writeln('k = ',k);
end.

Результат:
2000 - вт
2004 - вс
2008 - пт
...
2092 - пт
2096 - ср
k = 25

PS. Високосные годы, однако )
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт