Question

Лужайка в парке имеет форму прямоугольника размером а*b метров, разбитого на квадраты со стороной 1 метр. Необходимо поставить внутри лужайки ограждения между некоторыми квадратами так, чтобы образовалась спиральная дорожка, закручивающаяся к центру лужайки. Определите длину такого ограждения

Answer 1

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

begin
  var (a,b):=ReadInteger2('Введите a и b:');
  if a<b then Swap(a,b); // a>=b всегда
  b-=2;
  var L:=0;
  while b>=0 do begin
    a-=1;
    L+=a+b;
    b-=1;
    end;
  Writeln('L=',L)
end.

Пример
Введите a и b: 7 4
L=18