Задание:
Дано натуральное число 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 Знаете другой ответ?