Среди 5 значных числео найдите, симметричные числа.Распишите решение подробно, пожалуйста.

Question

Среди 5 значных числео найдите, симметричные числа.
Распишите решение подробно, пожалуйста.

Answer 1

var
  a: integer;
  b: byte;
  c: string;
begin
  for b := 1 to 5 do
  begin
    readln(a);
    c := String.Empty;
    foreach ch: char in inttostr(a) do //Переводим в строку и переворачиваем её
      c := ch + c;
    if (c = IntToStr(a)) then //Сравниваем исходную "строку-число" и перевёрнутую
      writeln('Число ', a, ' симметрично!');
  end;
end.