Сформулировать условие задачи, которую решает данная программа. Var n: integer; mi, ma: 0 ... 9; Begin Write ('введите натуральное число: ') ; Readln (n) ; mi:=9; ma:=0; while n0 do begin if n mod 10 ma then ma: = n mod 10; n : = n div 10 end; writeln ('Среднее геометрическое: ', sqrt (ma*mi)) ; End.

Var

n: integer;

min, max: 0 ... 9;

begin

Write ('введите натуральное число: ') ;

Readln (n) ;

{инициализация начальных значений минимума и максимума}

min : = 9;

max : = 0;

{разбиение числа на отдельные цифры и поиск их минимума и максимума}

while n 0 do

begin

if n mod 10 < min then min : = n mod 10;

if n mod 10 > max then max : = n mod 10;

n : = n div 10

end;

{Вычисление и вывод среднего геометрического минимума и максимума}

writeln ('Среднее геометрическое: ', sqrt (max * min)) ;

end.

Собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее геометрическое или среднее пропорциональное этих двух цифр.