Составить программу «календарь xx столетия» , которая определяет день недели любого дня xx-го столетия. по введенному значению 1, 2, 3 вычисляет 1.номер дня недели по формуле, где d- день, м-месяц, g-год: •s=[(12-m)/10] •k=[(g-1900-s)*365,25]+[(m+12*s-2)*30,59]+d+29 •n=k-7[k/7] (n-вычисляется от 0-воскресенье до 6-суббота, []-целая часть) 2.день недели по его номеру 3.выход

// PascalABC.NET 3.0, сборка 1128
begin
  var D:=ReadInteger('Номер дня (1-31)');
  var M:=ReadInteger('Номер месяца (1-12)');
  var G:=ReadInteger('Номер года (1900-1999)');
  var S:=(12-M) div 10;
  var K:=Trunc(Int((G-1900-S)*365.25)+Int((M+12*S-2)*30.59)+D+29);
  var N:=K mod 7;
  case N of
  0:Writeln('Воскресенье');
  1:Writeln('Понедельник');
  2:Writeln('Вторник');
  3:Writeln('Среда');
  4:Writeln('Четверг');
  5:Writeln('Пятница');
  6:Writeln('Суббота')
  end
end.