• Дано 4-х значное число. Определить, что больше само число или его перевёртыш.

Ответы 1

  • var

    n,a:integer;

    begin

    readln(n);

    a:=(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

    if n>a then

    writeln('число ', n, ' больше перевертыша ', a)

    else

    writeln('перевертыш ', a, ' больше числа ', n);

    end.

     

     

    • Автор:

      baby doll
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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