Question

Написать алгоритм и программу угадывания дня и месяца, если задано число A= 12*X+31* Y, где Х – номер дня, Y– номер месяца.

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnInteger('A=');
  for var y:=1 to 12 do begin
    var x:=a-31*y;
    if (x mod 12=0) and (x div 12).Between(1,31) then begin
      Writeln('Номер дня ',x div 12,', номер месяца ',y);
      Exit
      end
    end;
  Writeln('Неверное значение А')
end.

Пример
A= 500
Номер дня 21, номер месяца 8