Priorities for smart technologies

Алгоритм решения

рассмотрим первый тест. мы знаем, что карточки пронумерованы от 1 до n, и что утеряна была ровно одна карточка. пусть x равен сумме номеров всех карточек от 1 до n. тогда y равен сумме номеров карточек, что даны нам во вводе. значит, номер потерявшейся карточки - это x - y

x = 1 + 2 + 3 + 4 + 5 = 15

y = 3 + 5 + 1 + 4 = 13

ans = x - y = 15 - 13 = 2, ответ: 2.

правда, тогда придется "угадать" тест, где n равно единице, поскольку мы используем do-while для ввода. логично, что в наборе из одной карточки могла потеряться только эта единственная карточка.

код

дан в приложении.

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).
    Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш