Задать вопрос Регистрация
Помочь другим

  • 1. Дано трехзначное число. Выяснить, является ли оно палиндромом («перевертышем»), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево

Ответы 1

  • program xxx;

    var n, c, d, e, k : integer;

    begin

      wtite ('введите 3-х значное число N =');

      readln (n);

      c := n div 100;

      d := (n div 10) mod 10;

      e := n mod 10;

      k:= 100*e + 10*d + c;

      if n = k then write ('палиндром') else write('не палиндром')

    end.

    • Автор:

      wyatt150
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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