Question

Pascal. Определить, образуют ли цифры числа симметричную последовательность

Answer 1

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
Число симметричное

Answer 2

Вы немного опоздали.