Цикл будет работать до числа 15. Переменная s будет увеличиваться на 1, если остаток при делении равен 1. Получается, что s будет увеличиваться при нечетных числах. Всего их 8, соответственно s = 8. Таблицу смотри во вложении.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s=s.Inverse then Writeln('Палиндром')
else Writeln('Не палиндром')
end.
<u>Примеры</u>
мадам
Палиндром
аргентинаманитнегра
Палиндром
12345654231
Не палиндром
Var
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
begin
tmp:= i;
cnt:= 0;
while tmp > 0 do
begin
inc(cnt);
tmp := tmp div 10;
end;
ans:= ans + cnt;
end;
Writeln(ans);
end.