Регистрация
Аннапомогите
22.05.2020 18:26
Информатика
Есть ответ 👍

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

136
253
Посмотреть ответы 2

Ответы на вопрос:

Lisonьka124
Lisonьka124
4,8(12 оценок)

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.

misterpordon
misterpordon
4,8(79 оценок)

Код выведет модуль введённого числа

Объяснение:

При вводе положительного числа - он выведет это число, при вводе отрицательного его же, но умноженное на -1, а минус на минус даст плюс

Популярно: Информатика