помогите: как Найти, является ли введенное число палиндромом?

Помогите: как Найти, является ли введенное число палиндромом?

Задать свой вопрос
1 ответ
var   a, b: string;   i: integer;   begin   readln(a);   b := a;   for i := length(a) downto 1 do b[length(a) - i + 1] := a[i];   if a = b then writeln('YES')   else writeln('NO'); end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт