Задание 1. Совсем скоро во всем мире будет отмечаться День защиты персональных данных. Этот праздник был учрежден для того, чтобы пользователи Интернета не забывали особлюдении правил поведения в сети, которые обезопасить их виртуальную и реальную жизнь. Бит закодировал дату празднования этого Дня по правилу: код «точки» — 70А, цифры «1» —10У, цифры «2» —15T, цифры «9» — 50л, цифры «О» — 55K . В результате у него получился код: 15T45M70A55K1ОУ. Угадай эту дату.
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.
Собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее геометрическое или среднее пропорциональное этих двух цифр.