• Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево. Входные данные Натуральное число N (1000 ≤ N ≤ 9999). Выходные данные Следует вывести слово «YES», если число N является палиндромом, или «NO» – если нет.

Ответы 6

  • Но не хочет работать ни на старой ни на новой. Ни даже онлайн.
    • Автор:

      ananías
    • 5 лет назад
    • 0
  • Что значит "не хочет"? Онлайн точно не будет работать. потому что онлайн-версий PascalABC.NET не существует. Что происходит, что пишет?
  • И, пожалуйста, напишите версию, в которой пробуете запускать.
    • Автор:

      kaiaware
    • 5 лет назад
    • 0
  • Все в порядке, ошибки исправила. Спасибо еще раз.
  • Для выражения "спасибо" тут принято просто щелкать красненькое сердечко.
  • PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

    begin

     var s := ReadInteger('n=').ToString;

     if (s[1] = s[4]) and (s[2] = s[3]) then Println('YES')

     else Println('NO')

    end.

    • Автор:

      lópez54
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years