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

  • найти самую большую разницу между цифрами числа

Ответы 1

  • var

      a, max, t:integer;

    begin

      write('Введите число '); readln(a);

      max := abs(a mod 10 - (a mod 100) div 10);

      while a div 10 <> 0 do

      begin

        t := a div 10;

        while t <> 0 do

        begin

          if abs(t mod 10 - a mod 10) > max then

            max := abs(t mod 10 - a mod 10);

          t := t div 10;

         end;

        a := a div 10;

      end;

      writeln('Max = ', max);

    end.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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