Олимпиада по информатике РЕМОНТ ДОРОГИ Ограничение времени 1 секунда
Ограничение памяти 256Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt Первая строка ввода содержит четыре натуральных числа A,B,C и D, разделенных пробелами (1 ≤ A,B,C,D ≤ 109) — номера километров дороги, которую укладывал Лёша.
Формат вывода
Вывести одно целое число — общую длину уложенной дороги.
Пример 1
Ввод Вывод
1 2 6 4

3

Пример 2
Ввод Вывод
1 6 2 4

5

Var
  i, a, b, n, n2, j: longint;
  s: string;
  flag: boolean;

begin
  Write('Введите натуральное число больше 11: ');
  Readln(a);
  if a <= 11 then Writeln('11 - первое симметричное число')
  else begin
    Str(a, s);
    n := Length(s); n2 := n div 2; flag := true; i := 1;
    repeat
      flag := (s[i] = s[n - i + 1]);
      i := i + 1
    until (not flag) or (i > n2);
    if flag then Write('Число симметричное')
    else Write('Число несимметричное')
  end;
end.

Тестовое решение:

Введите натуральное число больше 11: 123454321
Число симметричное

Рассматривая различные прямоугольники и подсчитывая в них число поворотов P, можно прийти к следующему алгоритму. Для любого натурального k получаем:


var
  M, N, k, mn, P: integer;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, M, N);
  Close(f);
  if M < 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.