Question

2. Напишите программу которая при вводе 4 чисел узнает есть ли среди них равные если да то сколько.

Answer 1

// PascalABC.NET

begin

 var a := ReadArrReal(4);

 var k := a.Length - a.Distinct.Count;

 if k = 0 then

   Print('Все числа уникальны')

 else

   Print('Количество повторяющихся чисел равно', k)

end.