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

islom0503 islom0503    3   16.04.2020 12:35    0

Ответы
DiaGirlNya DiaGirlNya  13.10.2020 08:49

// PascalABC.NET

begin

 var a := ReadArrReal(4);

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

 if k = 0 then

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

 else

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика