Решить при подмоги pytrhon, pascal либо c++. Даю 91 балл!!!!Ограничение по

Решить при помощи pytrhon, pascal либо c++. Даю 91 балл!!!!
Ограничение по времени, сек 2
Ограничение по памяти, мегабайт 64
В конструкторском бюро проектируют планетоход для исследования поверхности планетки Марс. Исследования обязаны проводиться на прямоугольной области планетки без препятствий снутри неё. Эта область разбита на единичные квадраты и имеет размеры MN, где M высота прямоугольника, а N его ширина.

Планируется, что планетоход обязан работать по последующей программке. Сначала он садится в северо-западном углу данной области в направлении на восток. После этого планетоход начинает обход и исследование избранной области, двигаясь по спирали по часовой стрелке. При этом спираль равномерно закручивается внутрь, захватывая равномерно все клеточки прямоугольника. Исследование заканчивается, когда пройдены все клеточки (после еще одного поворота планетохода).

Нужно написать программку, которая для данных M и N (1MN32767) определяет количество поворотов, которые обязан выполнить планетоход в процессе исследования области.

Входные данные
В единственной входной строке через пробел записаны два целых числа M и N (1MN32767), размеры исследуемого прямоугольного участка.

Выходные данные
Программка обязана вывести одно целое число количество поворотов, которое выполнит планетоход при исследовании данной области на поверхности Марса.

Примеры
входные данные
3 4
выходные данные
5
входные данные
5 3
выходные данные
6

Задать свой вопрос
1 ответ
Var
  M, N, k, mn, P: integer;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, M, N);
  Close(f);
  if M lt; N then mn := M else mn := N;
  if mn = 1 then P := 0
  else begin
    k := mn div 2;
    if mn mod 2 = 0 then
      if M = N then P := 4 * k - 2
      else P := 4 * k - 1
    else
    if M = N then P := 4 * k
    else P := 4 * k + 1
  end;
  Assign(f, 'output.txt');
  Rewrite(f);
  Writeln(f, P);
  Close(f)
end. Так??
Blazhievskij Olezhka
nice!
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт