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.

Answer 2

Конечно, вот пример программы на языке Python, которая выполняет задачу:

pythonCopy code
def main():
    numbers = []
    
    for i in range(4):
        num = float(input(f"Введите число {i + 1}: "))
        numbers.append(num)
    
    count = count_equal_numbers(numbers)
    
    if count == 0:
        print("Среди введенных чисел нет равных.")
    else:
        print(f"Среди введенных чисел есть равные. Количество: {count}")

def count_equal_numbers(numbers):
    count = 0
    seen = set()
    
    for num in numbers:
        if num in seen:
            count += 1
        else:
            seen.add(num)
    
    return count

if __name__ == "__main__":
    main()

Просто скопируйте этот код в файл с расширением .py, запустите его и введите 4 числа. Программа проверит, есть ли среди введенных чисел равные, и если есть, выведет их количество.