Дано натуральное число, в котором все цифры различны. Определить: а) порядковый номер его максимальной цифры, считая номера: - от конца числа; - от начала числа; б) порядковый номер его минимальной цифры, считая номера: - от конца числа; - от начала числа. Примечание. Во всех случаях использовать только один оператор цикла. For example: Input Result 12345 1 5 5 1 31 2 1 1 2

який це клас можеш сказати

===== PascalABC.NET =====

= 1 =

begin

 var n := ReadInteger('N =');

 var A := ArrRandom(n, -99, 99);

 A.Println;

 // собственно, решение

 var s := A.Sum; // сумма всех элементов массива

 var L := new List<integer>; // то, что войдет в массив В

 // берем каждого претендента и сравниваем его с остальной суммой

 for var i := 0 to A.High do

   if (Abs(A[i] mod 10) = 5) and (A[i] > s - A[i]) then

     L.Add(A[i]);

 var B := L.ToArray;

 if B.Length > 0 then

 begin

   Print('Особые элементы:');

   B.Print

 end  

 else

   Print('Нет "особых" элементов');

end.

= 2 =

begin

 var n := ReadInteger('N =');

 var A := ArrRandom(n, -10, 10);

 A.Println;

 // собственно, решение

 var D := new Dictionary<integer, integer>; // словарь

 foreach var k in A do // перебор элементов

   if D.ContainsKey(k) then

     D[k] += 1 // +1, если такой элемент был

   else

     D.Add(k, 1); // 1, если элемент встретился впервые

 D.Count(p -> p.Value > 1).Print

end.

7

Объяснение:

Пойдём с самого начала. Сначала идут 4 длинных сигнала. Из представленных вариантов мы можем использовать только О:

О_.._..__...

За буквой О идёт один длинный сигнал и две точки. Двух точек нет, но есть одна, это буква Н:

ОН._..__...

Последовательности, начинающаяся с короткого сигнала и длинного нет, так что это буква Е:

ОНЕ_..__...

Мы получили такую же последовательность, как и на второй операции, букву Н:

ОНЕН.__...

Снова одна точка, то есть буква Е:

ОНЕНЕ__...

Последовательность из двух длинных сигналов одна - это буква З:

ОНЕНЕЗ.

Последняя точка - это буква Е:

ОНЕНЕЗЕ

Длинна данного слова - 7.