сравниваешь первую и вторую цифры
затем вторую и третью
затем первую и третью
если есть одинаковые то ДА
если нет то НЕТ
Не Паскаль!!!!
<span>1) режим виртуальных каналов
В этом режиме вся информация разбивается на пакеты, с разовой маршрутеризацией
</span>
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Введите 10 целых чисел:',10);
var pe:=a.Where(t->t.IsEven).Count/10;
Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.
<u>Пример</u>
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%
Информация для человека - это знания, получаемые из различных источников.