дано натуральное число n. определить на сколько его максимальная цифра больше минимальной
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.
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.