• Помогите!!!

    является ли число перевёртышем,т.е числом, десятичная запись которого читается одинаково слева направо и справа налево
    Пример входных данных Пример выходных данных
    122 Нет
    121 Перевёртыш
    222 Перевёртыш

Ответы 2

  • читается одинаково слева направо и справа налево.122 - нет121 - перевертыш222 - перевертышvar n:integer;begin write('n = '); readln(n); if (n div 100) = (n mod 10) then writeln('Перевертыш') else writeln('Нет'); readln;end.
    • Автор:

      girldltd
    • 6 лет назад
    • 0
  • begin

     var n := readinteger();

     for var i := 1 to n.ToString.Length div 2 do

     begin

       if (n.ToString[i] <> n.ToString[n.ToString.Length - i + 1]) then

       begin

         write('Нет');

         exit;

       end;

     end;

     write('Перевёртыш');

    end.

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

Войти через Google

или

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

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

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