Hathor
Опубликовано 6 лет назад по предмету Информатика от Hathor


дано натуральное число n. определить на сколько  его максимальная цифра больше минимальной

  1. Ответ
    Ответ дан GlowWorm59

    Program max_min;Var n, c, max, min:integer;Begin write('Введите натуральное число:'); readln(n); c:=n mod 10; max:=c; min:=c; n:=n div 10; if n=0 then writeln('Число - однозначное.'); while n>0 do begin c:=n mod 10; if c>max then max:=c; if c<min then min:=c; n:=n div 10;end;writeln('Максимальная цифра ',max,' больше минимальной ',min,' на ',max-min);end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц